Boolean1. Дано целое число $$A$$. Проверить истинность высказывания: «Число $$A$$ является положительным».
Решение:
|
1 2 3 4 5 6 7 8 |
program Boolean1; var A: Real; begin Write('Введите число A: '); Readln(A); Writeln(A>0); end. |
Другие задачи из раздела Boolean можно посмотреть здесь.
program Boolean1;
var
A: Real;
B: boolean;
begin
Write(‘Введите число A: ‘);
Readln(A);
B:=A>0;
Writeln(‘Число А является положительным?: ‘, B);
end.
var a:integer; //задача(boolean4)
b:boolean;
begin
readln(a);
b:=odd(a);
writeln(not (b));
end.
Это вообще к чему?
Это вообще к чему?