С клавиатуры вводится текст.Посчитать сколько букв "е" в слове введённом с клавиатуры.
С клавиатуры вводится текст.Посчитать сколько букв "е" в слове введённом с клавиатуры.
Гость
Ответ(ы) на вопрос:
Гостьvar s:string; k,i:integer;
begin
write('Введите слово: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='е' then k:=k+1;
writeln('В слове ',s,' буква а встречается ',k,' раз');
end.
Не нашли ответ?
Похожие вопросы