Определите, является ли заданное число A нечетным числом. (Написать программу) на русском

Question

Настеха

2 мая, 01:37

+1

Ответы (2)

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

Парфён · Answer 1

Var a:integer;

begin

writeln ('Введите число А') ;

readln (a) ;

if a mod 2=0 then

writeln ('YES')

else

writeln ('NO') ;

end.

Керкира · Answer 2

Введите число А

если число А делится нацело на 2, то число А - четное, иначе число А - нечетное