Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

С клавиатуры вводится текст.Посчитать сколько букв "е" в слове введённом с клавиатуры.

Ответ оставил Гость

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.