Сьогодні | Разом | |
Відвідувань | 106 | 5337729 |
Авторізацій | 0 | 428646 |
Користувачів | 0 | 2682 |
13. Boolean
var a: integer; b: boolean; begin readln(a); b := a > 0; if b then writeln('Положительное значение переменной a') else writeln('Отрицательное значение или ноль') end.На картинке основатель математической логики Джорж Буль (1815-1864)