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