Вопрос школьника по предмету Информатика
Составьте программу, определяющую количество букв «о» и «а» в строке s. На языке Паскаль
Составьте программу, определяющую количество букв «о» и «а» в строке 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.
Объяснение:
Программа считает только русские строчные буквы «о» и «а»
Похожие вопросы от пользователей
P2O5 + … — H3PO4
Na2O + … — NaOH
K2O + … — KCL + H2O
PH2 + … — P2O5 + H2O
SO3 + … — Na2SO4 + …
CaO + … — CaSiO3
66509+41200:(39839-39736)-65548=?