Ответы
Ответ дал:
0
var
s:string;
i, m:integer;
begin
readln(s);
m:=0;
for i:=1 to length(s) do
if(s[i]='a') then m:=m+1;
writeln(m);
end.
s:string;
i, m:integer;
begin
readln(s);
m:=0;
for i:=1 to length(s) do
if(s[i]='a') then m:=m+1;
writeln(m);
end.
Ответ дал:
0
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад