
Борис
5 год назад
Пожалуйста посчитайте решение pascalДано число если оно чётное вывести YES если не чётное то NO
ОТВЕТЫ

Герман
Oct 24, 2020
var x : integer;
begin
readln(x);
if (x mod 2 = 0) then
write('YES')
else
write('NO');
end.
begin
readln(x);
if (x mod 2 = 0) then
write('YES')
else
write('NO');
end.
801
Смежные вопросы: