Boolean2. Дано целое число $$A$$. Проверить истинность высказывания: «Число $$A$$ является нечетным».
Решение:
|
1 2 3 4 5 6 7 8 |
program Boolean2; var A: Integer; begin Write('Введите число A: '); Readln(A); Writeln((A mod 2)>0); end. |
Решение Peter:
|
1 2 3 4 5 6 7 8 9 10 |
program Boolean2; var A: integer; B: boolean; begin Write('Введите число A: '); Readln(A); B:=ODD(A); Writeln('Число А является нечетным?: ', B); end. |
Другие задачи из раздела Boolean можно посмотреть здесь.
Добавил решение в шапку.
А если число отрицательное?
Наверное лучше писать Writeln((A mod 2) <> 0) ?
Похоже не все знаки пропускает, я хотел спросит наверное лучше писать не больше нуля, а не равно нулю?
Да, вы правы. Для работы с отрицательными числами внёс следующие изменения:
Было:
Стало:
var a,b:integer; //boolean №3
begin
readln(a);
b:=a mod 3;
writeln(odd(b))
end.
А как же 1 ? 🙁