Помогите найти ошибку в программе
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.
На этот вопрос еще никто не ответил. Напишите свой ответ или воспользуйтесь поиском:
Новые вопросы