Всі умови | Умова: Дано натуральне число n, символи s1, ..., sn. підрахувати, скільки разів серед даних символів зустрічається буква x. (Строковий варіант: дана рядок символів; підрахувати, кільки разів серед символів рядка зустрічається буква x.)
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №251)
program pr251;
var
s : string;
x : char;
i, k : integer;
begin
write('s = '); readln(s);
write('x = '); readln(x);
k := 0;
for i := 1 to length(s) do
if (s[i] = x) then inc(k);
writeln('Result: ', k);
readln;
end.