/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Boolean1.pas
16 строк
405 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Логический тип. Логические выражения с and, or и not var b: boolean; x: integer; begin write('Введите x (от 1 до 9): '); readln(x); b := x=5; writeln('x=5? ',b); b := (x>=3) and (x<=5); writeln('x=3,4 или 5? ',b); b := (x=3) or (x=4) or (x=5); writeln('x=3,4 или 5? ',b); b := not Odd(x); writeln('x - четное? ',b); end.