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

Question

Рубен

31 мая, 18:41

+1

Ответы (1)

Знаете ответ на вопрос?

Декабрист · Answer 1

Var a:integer;

begin

read (a) ;

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

end.