Необходимо подсчитать число гласных букв в тексте на русском языке. Заканчивающий символ $. Каждый раз ,когда очередной символ есть гласная буква ,прибавлять к счетчику 1. Счет начинается с 0.Чтение символов производится до тех...
Необходимо подсчитать число гласных букв в тексте на русском языке. Заканчивающий символ $.
Каждый раз ,когда очередной символ есть гласная буква ,прибавлять к счетчику 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!
Не нашли ответ?
Похожие вопросы