ИНФОРМАТИКА: сколько букв "А" в слове абракадабра - написать программу в Pascal ABC, которая выводит кол-во букв"а" на экран
ИНФОРМАТИКА: сколько букв "А" в слове абракадабра - написать программу в Pascal ABC, которая выводит кол-во букв"а" на экран
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
var st: string;
i,k: integer;
begin
st:='абракадабра';
k:=0;
for i:=1 to st.Length do
if st[i]='а' then k:=k+1;
writeln('в этом слове ',k,' букв а');
end.
Не нашли ответ?
Похожие вопросы