Помогите найти ошибку в программе var s:string; n:integer; begin write('Введите...

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

Comments

спасибо огромное)

---

Пожалуйста.