Вопрос школьника по предмету Информатика
Составьте программу, определяющую количество букв «о» и «а» в строке 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.
Объяснение:
Программа считает только русские строчные буквы «о» и «а»
Похожие вопросы от пользователей
билетов. Какова вероятность того, что взятый наугад учеником имеет:
а) однозначный номер; б) двузначный номер?
1. 50 с.ш. 143 в.д. (остров)
2. 65 ю.ш. 64 з.д (антарктическая станция)
3. 57 с. ш. 160 в.д. (полуостров)
4. 49 с.ш. 24 в.д. (город)
5. 45 с.ш. 34 в.д. (полуостров)
2.Почему Кутузов отдал Москву неприятелю?
3.Какое участие принимали крестьяне в войне 1812 года?
4.Почему И.П.Мартос для памятника в честь победы в Отечественной войне 1812 года выбрал образы Козьмы Минина и Дмитрия Пожарского?
Помогите пожалуйста,прошу!!!!!!
даю 29 баллов