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

Question

Юдифь

3 сентября, 21:07

+2

Ответы (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, то число А - четное, иначе число А - нечетное