СРОЧНО!! Напишите, ПОЖАЛУЙСТА, код в турбо паскальДана символьная строчка. Подсчитать в

Безотлагательно!! Напишите, ПОЖАЛУЙСТА, код в турбо паскаль
Дана символьная строчка. Подсчитать в ней количество вхождений
букв r, k, t.



Задать свой вопрос
Данил Елпатьев
вкупе взятых либо раздельно?
Пачаев Виктор
раздельно
Скучнова Лилия
вместе взятых либо отдельно?
Эвелина Шахпаронян
отдельно
Мила Гарпинич
вместе взятых либо раздельно?
Васька Дрожжин
раздельно
Барилович Вадим
вкупе взятых либо раздельно?
Оксана Семлякова
отдельно
1 ответ
Program abc;
  var s: string;
           r, k, t, i: integer;
begin
  r := 0;
  k := 0; t := 0;
  read(s);
  for i := 1 to length(s) do
  begin
      if s[i] = 'r' then inc(r)
      else if s[i] = 'k' then inc(k)
      else if s[i] = 't' then inc(t);
  end;
  writeln('r: ', r);
  writeln('k: ', k);
  writeln('t: ', t);
end.
Ленка Рокртянская
Спасибо огромное)) все работает))
Валя
Спасибо огромное)) все работает))
Геннадий Лагвилава
Спасибо большое)) все работает))
Милана Оселедько
Спасибо огромное)) все работает))
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт