ИНФОРМАТИКА: сколько букв "А" в слове абракадабра - написать программу в Pascal ABC, которая выводит кол-во букв"а" на экран
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад