Дамп всех задач

2017-05-22 13:29:43 +03:00
parent b970626fef
commit 93746b05d7
173 changed files with 2505 additions and 0 deletions
--- a/str/Program5.pas
+++ b/str/Program5.pas
@@ -0,0 +1,15 @@
+var
+  a, m: int64;
+  s: string;
+  f: char;
+
+begin
+  ReadLn(s);
+  Readln(f);
+  m := 0;
+  for a := 1 to s.Length do 
+  begin
+    if (s[a] = f) then m := m + 1;
+  end;
+  write(m);
+end.