Регистрация
Войти
Стать экспертом Правила
Информатика

Пожалуйста посчитайте решение pascalДано число если оно чётное вывести YES если не чётное то NO

ОТВЕТЫ
var x : integer;
begin
readln(x);
if (x mod 2 = 0) then
write('YES')
else
write('NO');
end.
801
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам