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

Хех... как все же мы шаблонно мыслим: даже имена переменных взяли одинаковые! )))

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 раз(а)