Написать программу на языке Pascal Задано произвольное число. Проверить является ли оно четным.

Question

Хрисия

9 мая, 12:01

+1

Ответы (1)

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

Радим · Answer 1

Var a, b, c:integer;

begin

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

readln (a) ;

if (a mod 2 = 0) then writeln ('да')

else

writeln ('нет')

end.