Напишите, , код в турбо паскаль дана символьная строка. подсчитать в ней количество вхождений букв r, k, t.

295

368

Посмотреть ответы 2

Ответы на вопрос:

egor535

Информатика

4,7(47 оценок)

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.