Вопрос по информатике:
Помогите найти ошибку в программе
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.
- 08.01.2015 10:27
- Информатика
- remove_red_eye 20068
- thumb_up 20
Ответы и объяснения 1
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
- 09.01.2015 05:37
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.