Question

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

Answer 1

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.