Program Boolean2;
Var
A: Integer;
Begin
ReadLn(A);
WriteLn(Odd(A));
end.
Похожие записи/страницы:
- Проверить истинность высказывания: «Данное число является нечетным трехзначным» - Pascal(Паскаль)
- Дано целое число A. Проверить истинность высказывания: «Число A является положительным» - Pascal(Паскаль)
- Дано целое число A. Проверить истинность высказывания: «Число A является четным» - Pascal(Паскаль)
- Проверить истинность высказывания: «Данное число является четным двузначным» - Pascal(Паскаль)
- Проверить истинность высказывания: «Данное число читается одинаково слева направо и справа налево» - Pascal(Паскаль)
- Проверить истинность высказывания: «Цифры данного числа образуют возрастающую или убывающую последовательность»…
- Проверить истинность высказывания: «Цифры данного числа образуют возрастающую последовательность» - Pascal(Паскаль)
- Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число B находится между числами A и C» -…