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

October 2021 1 16 Report

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

Answers & Comments

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

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

Answers & Comments

srochno kak perevesti minuty v desyatye doli vot naprimer bylo 1250 poluch

srochno kak razobratsya v teme stradatelnyj zalog po nemeckomu yazykuampnb

kak reshit integral pod nomerom 415 napishite pliz podrobnoe s reshenie

kak reshit napishite pliz reshenie

(x^2+4)...

gde u menya oshibka v 3 nomere otvet dolzhen poluchitsya 012 u menya ne soshlos

cos^7(x) ?...

srochnoooo kakie byvayut nasledstvennye bolezni cheloveka napishite 5 boleznej

sharik dvizhetsya po okruzhnosti radiusom r so skorostyu v kak izmenitsya ego centro

brounovskoe dvizhenie chastic pylcy v vode obyasnyaetsya 1 haotichnostyu himicheski

рекомендуемые вопросы

Helpful Links

Helpful Social