Вопрос школьника по предмету Информатика
Составьте программу, определяющую количество букв «о» и «а» в строке 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.
Объяснение:
Программа считает только русские строчные буквы «о» и «а»
Похожие вопросы от пользователей
В избирательном округе 30.000 избирателей. В голосовании приняли участие ТРИ ЧЕТВЕРТИ всех избирателей. Сколько изберателей НЕ ГОЛОСОВАЛИ.
1)There are different types of higher education establishments in Great Britain.-специальный к дополнению.
2)They include technical colleges.-общий вопрос
3)The two oldest universities in England are Oxford and Cambridge.-альтернативный
4)The teaching is based on the tutorial system.-разделительный
Желательно с ответами