Помогите решение pascal

Дано число если оно чётное вывести YES если не чётное то NO

Question

Павлуха

31 июля, 17:23

+2

Ответы (2)

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

Еликонида · Answer 1

Var n:integer;

begin

readln (n) ;

if n mod 2 = 0 then write ('YES')

else write ('NO')

end.

Евлалия · Answer 2

Var x : integer;

begin

readln (x) ;

if (x mod 2 = 0) then

write ('YES')

else

write ('NO') ;

end.

Помогите решение pascalДано число если оно чётное вывести YES если не чётное то NO