Необходимо подсчитать число гласных букв в тексте на русском языке. Заканчивающий символ $. Каждый раз ,когда очередной символ е
Необходимо подсчитать число гласных букв в тексте на русском языке. Заканчивающий символ $. Каждый раз ,когда очередной символ есть гласная буква ,прибавлять к счетчику 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!
Program vs4;Var n,b,a,c:integer;Begin Writeln('Введите трехзначное число'); Readln(n); a:=n div 100; b:=(n div 10) mod 10; c:=(n mod 100) mod 10; n:=a+b+c; Writeln('Сумма цифр данного числа=',n);End.