Question

Напишите функцию, которая будет проверять, является ли число четным. Функция должна иметь тип boolean, а в качестве параметра ей будет передаваться целое число.

Answer 1

function proverka(i :integer):boolean;
begin if i mod 2=0 then
proverka:=true
else
proverka:=false;
end;