/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/05_IfCaseBoolean/If5.pas
17 строк
614 B
Mikhalkovich Stanislav
Примеры правлю на современные
14 окт 2025, 21:21
14 окт 2025, 21:21
e840fcb
Код
Авторство
О чём код?
// Вложенные условные операторы. Антонимы begin var s := ReadString('Введите слово из списка (черный,высокий,свет,радость,умный):'); Print('Антоним: '); if s = 'черный' then Println('белый') else if s = 'высокий' then Println('низкий') else if s = 'свет' then Println('тьма') else if s = 'радость' then Println('горе') else if s = 'умный' then Println('глупый') else Println('Такого слова в списке нет'); end.