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

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

Question

Аглаида

4 февраля, 03:59

+3

Ответы (2)

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

Константинка · Answer 1

Var x : integer;

begin

readln (x) ;

if (x mod 2 = 0) then

write ('YES')

else

write ('NO') ;

end.

Ромаша · Answer 2

Var n:integer;

begin

readln (n) ;

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

else write ('NO')

end.

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