/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/05_IfCaseBoolean/If4.pas
16 строк
435 B
Mikhalkovich Stanislav
Примеры правлю на современные
14 окт 2025, 21:21
14 окт 2025, 21:21
e840fcb
Код
Авторство
О чём код?
// Вложенные условные операторы begin var x := ReadInteger('Введите оценку (1..5):'); if x = 1 then Println('Единица') else if x = 2 then Println('Двойка') else if x = 3 then Println('Тройка') else if x = 4 then Println('Четвёрка') else if x = 5 then Println('Пятёрка') else Println('Такой оценки нет'); end.