Question

СРООЧНОО!  Напишите код в турбо паскаль
Дан текст, в котором записано одно из стихотворений
А.С. Пушкина. Сколько раз встречаются гласные буквы?

Answer 1

Это PascalABC, но на должно сработать и на турбе)

var
  s: string;
  i: longint;
  j: byte;

begin
  writeln('Конец стиха - строка пустая');
  repeat
    for j := 1 to length(s) do
      if (lowcase(s[j]) in ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я']) then
        i := i + 1;
    readln(s);
  until s = '';
  writeln(i, ' гласных букв');
end.

Answer 2

Работает*

Answer 3

Удачи в изучении наук)