Составить функцию результатом которой является истинное значение, если число, заданное при обращении к функции-четное, и ложное значение в противном случае.

Question

Вавуся

11 мая, 17:07

+3

Ответы (1)

Знаете ответ?

Лаврентьюшка · Answer 1

Var a:integer;

begin

read (a) ;

if a mod 2 = 0 then writen ('Число чётное') else writen ('Число нечетное') ;

end.