Помогите решить задачу в Паскале: вводится строка с клавиатуры. определить сколько в ней о.

Var

s:string;

k, i:integer; {k-количество символов 'o', i-счетчик цикла}

begin

readln (s) ;

k:=0;

for i:=1 to length (s) do {цикл от 1 до длины строки}

if s[i]='o'

then k:=k+1;

writeln (k) ;

end.

В условии задачи нечетко указано, какой символ искать: "о" - это может быть и латинская буква, и кириллическая. В программе предполагается, что это латинский символ, в противном случае его достаточно заменить в const на нужный.

const

c:char='o';

var

s:string;

i, k:integer;

begin

Write ('Введите строку: ') ; Readln (s) ;

k:=0;

for i:=1 to Length (s) do if s[i]=c then Inc (k) ;

Writeln ('Символ "', c,'" встречается ', k,' раз (а) ')

end.

Тестовое решение:

Введите строку: Learn wisdom by the follies of others

Символ "o" встречается 4 раз (а)