Срочно надо. Ввести символьную строку, найти ее длину, узнать сколько букв

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

Задать свой вопрос
Вадим Гачкаев
какой язык
2 ответа
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.
Если паскаль то вот:
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.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт