Дана строка. Посчитать сколько в ней букв «ы», «ю», «я».

Var
  s: string;
  i, n1, n2, n3: integer;

begin
  s := Это текст для подсчета в нем символов. Такое вот занятное дело.;
  s := s + Выбраны не самые частые буквы - ы, ю, я, но таково задание!;
  n1 := 0; n2 := 0; n3 := 0;
  for i := 1 to length(s) do
    case upcase(s[i]) of
      Ы: n1 := n1 + 1;
      Ю: n2 := n2 + 1;
      Я: n3 := n3 + 1;
    end;
  writeln(В строке встретились буквы: ы :, n1, раз, ю :,
    n2, раз, я: , n3, раз)
end.

Тестовое решение:

В строке встретились буквы: ы :6 раз, ю :1 раз, я: 3 раз

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.