Оператор mod возвращает остаток от деления. Четное число – такое, остаток от деления которого на 2 равен нулю.
Функция int возвращает целую часть дробного числа. С её можно реализовать mod (
– примерно то же самое, что и 
) или сравнить результат умножения на 2 целой части результата деления исходного числа на 2 с исходным числом.
Код:
begin
var a := ReadInteger();
writeln(a mod 2 = 0);
writeln(a - 2 * int(a / 2) = 0);
writeln(a = 2 * int(a / 2));
end.
Пример ввода:
5
Пример вывода:
False
False
False
Пример ввода:
42
Пример вывода:
True
True
True
program number1;
var a: array [1..5] of integer;
i,min,max: integer;
Begin
writeln('Введите 5 значений массива');
for i:=1 to 5 do
readln(a[i]);
min:=a[1];
max:=a[1];
for i:=1 to 5 do
Begin
if (a[i]>=max) then max:=a[i];
if (a[i]<=min) then min:=a[i];
End;
for i:=1 to 5 do
Begin
if max=a[i] then
Begin
writeln('Максимальное значение: ',a[i],' [',i,']');
max:=a[i];
End;
if min=a[i] then
Begin
writeln('Минимальное значение: ',a[i],' [',i,']');
min:=a[i];
End;
End;
writeln('Среднее арифметическое: ',(min+max)/2);
End.
if (((N % 4 == 0) & (N % 100 > 0))|(N % 400 == 0)):
print("YES")
else:
print("NO")