СРОЧНО!! Напишите, ПОЖАЛУЙСТА, код в турбо паскальДана символьная строка. Подсчитать в ней количество вхождений букв r, k, t.
СРОЧНО!! Напишите, ПОЖАЛУЙСТА, код в турбо паскаль
Дана символьная строка. Подсчитать в ней количество вхождений
букв r, k, t.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы