/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/05_IfCaseBoolean/If3.pas
12 строк
541 B
Mikhalkovich Stanislav
Примеры правлю на современные
14 окт 2025, 21:21
14 окт 2025, 21:21
e840fcb
Код
Авторство
О чём код?
// Условный оператор. Логические условия с or и and begin var x := ReadInteger('Введите x (от 1 до 99):'); if (x >= 1) and (x <= 9) then Println('Однозначное число'); // Odd — функция, возвращающая True, если x нечётное if Odd(x) and (x >= 10) and (x <= 99) then Println('Нечётное двузначное число'); if (x = 3) or (x = 9) or (x = 27) or (x = 81) then Println('Степень тройки'); end.