Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Язык программирования не указан, поэтому был выбрана система 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!