Ответы
Ответ дал:
0
Ответ:
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.
Объяснение:
Программа считает только русские строчные буквы "о" и "а"
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад