Question

20 баллов! Помогите, пожалуйста. Написать программу Паскаль. Вводится число. Вывести четность числа.

Answer 1

Ответ:

program Test

var

 n: Integer;

begin

 Write ('Введите число: ');

 ReadLn (n);

 if n mod 2 = 0 then

   WriteLn ('четное')

 else

   WriteLn ('не четное');

 ReadLn;

end.