Составьте программу, определяющую количество букв «о» и «а» в строке s. На языке Паскаль ​

Ответ учителя по предмету Информатика

Ответ:

program z1;

var s:string;

i,ko,ka: integer;

begin

write (‘Введите строку: ‘);

readln (s);

for  i:=1 to length(s) do

begin

if s[i]=’о’ then ko:=ko+1;

if s[i]=’а’ then ka:=ka+1;

end;

writeln (‘Количество букв «о» ‘,ko);

writeln (‘Количество букв «а» ‘,ka);

end.

Объяснение:

Программа считает только русские строчные буквы «о» и «а»