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

Question

Информатика

Рита

10 августа, 21:01

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

+2

Ответы (1)

Знаете ответ?

Сильвия · Answer 1

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.