Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.