Найти кол-во гласных букв в строке?(Паскаль)

Question

Найти кол-во гласных букв в строке?(Паскаль)

Comments

Пожалуйста помогите!!!!СРОЧНО НАДО!!!

Answer 1

Const glr='АЕЁИОУЫЭЮЯаеёиоуыэюя'; gle='AEIOUYaeiouy';
var s:string; k,i:integer;
begin
writeln('Введите строку:');
readln(s);
k:=0;
for i:=1 to length(s) do
 if pos(s[i],glr)+pos(s[i],gle)>0 then k:=k+1;
writeln('k = ',k);
end.

Пример:
Введите строку:
Primer пример.
k = 4

Comments

А что такое const glr и gle?

---

Строковые константы (const), содержащие русские и английские гласные буквы соответственно.

---

А их обязательно писать?Просто раньше в школе никогда такого не писали.

---

В этом варианте программы - обязательно. Можете написать программу по-другому и не использовать такие константы.