Program raf105;
var
s: string;
c,i: integer;
begin
write('Введите фразу: ');
readln(s);
for i:=1 to length(s) do
if s[i] = 'o'
then c:= c+1;
writeln('Количество символов "o" в ведённой фразе: ',c);
end.
<h3><u>PascalABC 3.4.2</u></h3>
Есть игры развивающие ум и мозг которых употребляют в хороших целях они могут принести максимальную пользу что же касается вреда от компьютерных игр то он, связан с неумеренным использованием. Для определённого возраста свой временный уровень.
7 процентов это твой ответ
Тут не как не помочь попробуй через шифт