Срочно надо. Ввести символьную строку, определить ее длину, выяснить сколько букв 'e' в...

Question

Срочно надо. Ввести символьную строку, определить ее длину, выяснить сколько букв 'e' в нее входит.
Пример:
Введите строку:
длинношеее
Результат:
Длина строки=10
3 букв 'e'

Comments

какой язык

Answer 1

Program stroka;
 var s:string; dl, k:integer;
begin
  write('Введите строку: ');
  dl:=length(s);
  k:=0;
  for i:=1 to dl do
     if s[i]='а' then k:=k+1;
  writeln('Длина строки - '',dl, ', в ней ',k,' букв е ')
end.

Answer 2

Если паскаль то вот:
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.