Дана символьная строка. Подсчитать в ней количество букв r,k,t — Pascal(Паскаль)

program string_11;

var
  s: string;
  a, b, c, i: integer;

begin
  write('введите строку');
  readln(s);
  a := 0;
  b := 0;
  c := 0;
  for i := 1 to length(s) do
  begin
    if s[i] = 'r' then
      a := a + 1;
    if s[i] = 'k' then
      b := b + 1;
    if s[i] = 't' then
      c := c + 1
  end;
  writeln('количество букв r=', a);
  writeln('количество букв k=', b);
  writeln('количество букв t=', c);
  readln;

end.

Leave a Comment

82 − = 76