Ответы
Ответ дал:
0
var s:string;
i,k:integer;
BEGIN
readln(s);
k:=0;
for i:=1 to Length(s) do
if (s[i]='е') then
k:=k+1;
writeln(k);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад