Вопрос школьника по предмету Информатика
Составьте программу, определяющую количество букв «о» и «а» в строке 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.
Объяснение:
Программа считает только русские строчные буквы «о» и «а»
Похожие вопросы от пользователей
а) бровь и бридж от корня со значением » мост»
б) буква и бухгалтер от корня со значением «книга»
в) кобыла и кавалер от корня со значением «конь»
г) вертеть и вентилятор от корня со значением «поворачивать»
д) доска и диск от корня со значением «блюда»