Если паскаль то вот:
Program strs;
Var s:string;
i, e:integer;
begin
read(s);
for i:=1 to s.Length do
if s[i] = е then
Inc(e);
writeln(s.Length);
writeln(e);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.