Написать программу в ПАСКАЛЕ: в тексте, состоящем из латинских букв и заканчивающеемся...

Question

Написать программу в ПАСКАЛЕ: в тексте, состоящем из латинских букв и заканчивающеемся точкой, посчитайте количество гласных букв.

Answer 1

Const
j=['a','e','i','j','o','u'];
var
a:string;
b:char;
n,i,k:integer;
begin
  repeat
     read(b);
     a:=a+b;
  until b='.';
n:=length(a);
n:=n-1; {без точки}
 for i:=1 to n do
    if a[i]in j then
        k:=k+1;
writeln(k);
end.