Question

Найти ошибку в программе var s: string; n: integer; begin write('введите предложение на языке: '); readln(s); for n: =1 to length (s) do if s[n]= 'a' or 'e' or 'i' or 'o' or 'u' then x: =x+1; write('количество гласных букв = ',x); end.

Answer 1

Var s:string;
n,x:integer;
begin
writeln('Введите предложение на английском языке:');
readln(s);
x:=0;
for n:=1 to length (s) do
 if (s[n]='a')or(s[n]='e')or(s[n]='i')or(s[n]='o')or(s[n]='u')or(s[n]='y')
  then x:=x+1;
// можно так:
//if s[n] in ['a','e','i','o','u','y'] then x:=x+1;
write('Количество гласных букв = ',x);
end.

Пример:
Введите предложение на английском языке:
primer
Количество гласных букв = 2