Вопрос по информатике:
Написать программу для определения, является ли введённая буква русского алфавита гласной
Пожаловаться
- 18.11.2017 21:35
- Информатика
- remove_red_eye 13156
- thumb_up 23
Ответы и объяснения 2
Program prog;
Uses crt;
var s: char;
begin
clrscr;
write('Letter: ');
readln(s);
case s of
'ё', 'Ё','у','У','е','Е','ы','Ы','а','А','о', 'О','э','Э','я','Я','и','И','ю','Ю': writeln('Yes');
else writeln('No');
end;
end.
Uses crt;
var s: char;
begin
clrscr;
write('Letter: ');
readln(s);
case s of
'ё', 'Ё','у','У','е','Е','ы','Ы','а','А','о', 'О','э','Э','я','Я','и','И','ю','Ю': writeln('Yes');
else writeln('No');
end;
end.
Пожаловаться
- 19.11.2017 13:15
- thumb_up 33
// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
begin
var c:char;
Write('Буква: '); Readln(c);
if UpCase(c) in ['А','Е','Ё','И','О','У','Ы','Э','Ю','Я'] then
Writeln('Это гласная буква')
else Writeln('Это не гласная буква')
end.
begin
var c:char;
Write('Буква: '); Readln(c);
if UpCase(c) in ['А','Е','Ё','И','О','У','Ы','Э','Ю','Я'] then
Writeln('Это гласная буква')
else Writeln('Это не гласная буква')
end.
Пожаловаться
- 20.11.2017 11:58
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы