od 20 переменной ans будет присвоено значение true при любом чётном n и false в противном случае.
program chetnye;
var n: integer; ans: boolean;
begin
writeln (Введите исходное число");
readln (n);
ans:n mod 20;
writeln (Число , n, является четным - , ans)
end.
Домашнее задание.
1. Проверить, является ли введенное число положительным.
2. Проверить, больше ли введенное число числа 100.
3. Проверить, является ли введенное число нечетным.
Страницы: << < 1 | 2