Написать программу для определения, является ли введённая буква русского алфавита гласной
Answers & Comments
ManulTheLiar// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
begin var c:char; Write('Буква: '); Readln(c); if UpCase(c) in ['А','Е','Ё','И','О','У','Ы','Э','Ю','Я'] then Writeln('Это гласная буква') else Writeln('Это не гласная буква') end.
Answers & Comments
begin
var c:char;
Write('Буква: '); Readln(c);
if UpCase(c) in ['А','Е','Ё','И','О','У','Ы','Э','Ю','Я'] then
Writeln('Это гласная буква')
else Writeln('Это не гласная буква')
end.