Необходимо подсчитать число гласных букв в тексте ** русском языке. Заканчивающий символ...

Question

Необходимо подсчитать число гласных букв в тексте на русском языке. Заканчивающий символ $.
Каждый раз ,когда очередной символ есть гласная буква ,прибавлять к счетчику 1.
Счет начинается с 0.Чтение символов производится до тех пор ,пока не встретим $

Answer 1

Язык программирования не указан, поэтому был выбрана система PascalABC.Net

const
  Gl=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','Ы','ы',
    'Э','э','Ю','ю','Я','я'];
  stop='$';
var
  c:char;
  n:integer;
begin
  Writeln('Вводите текст по одному символу, завершив ввод символом ',stop);
  n:=0;
  repeat
    ReadLn(c);
    if c in Gl then Inc(n)
  until c=stop;
  Writeln('Количество гласных букв равно ',n)
end.

Напоминаю, что в Паскале ввод каждого отдельного символа с клавиатуры должен завершаться нажатием клавиши Enter!