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

Question

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

Comments

вместе взятых или отдельно?

---

отдельно

Answer 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.

Comments

Спасибо большое)) все работает))