Добавил:
3axap4uk_
Рыльский филиал МГТУ ГА.
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Практические / prakt6 / буквацифра
.pas Program glas;
VAR C: CHAR;
BEGIN
WRITELN ('Введите букву');
READLN(C);
CASE C OF
'А','Е','И','О','У','Ы','Э','Ю','Я',
'а','е','и','о','у','ы','э','ю','я': WRITELN ('Это гласная буква')
ELSE WRITELN('Это не гласная буква');
END;
CASE C OF
'0', '1', '2', '3', '4', '5', '6', '7', '8', '9': writeln('Это цифра');
end;
END.
VAR C: CHAR;
BEGIN
WRITELN ('Введите букву');
READLN(C);
CASE C OF
'А','Е','И','О','У','Ы','Э','Ю','Я',
'а','е','и','о','у','ы','э','ю','я': WRITELN ('Это гласная буква')
ELSE WRITELN('Это не гласная буква');
END;
CASE C OF
'0', '1', '2', '3', '4', '5', '6', '7', '8', '9': writeln('Это цифра');
end;
END.
Соседние файлы в папке prakt6