Определите является ли заданое число положительным четным числом .соответвующие сообщения...

Question

Определите является ли заданое число положительным четным числом .соответвующие сообщения выведите на экран

Answer 1

Первый вариант:

Var A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
Write('Это число ');
if A > 0 then Write('положительное ')
else Write('отрицательное ');
if A mod 2 = 0 then Write('чётное')
else Write('нечётное')
End.



Второй вариант:

Var
   A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if (A mod 2 = 0)and(A > 0) then Write('Данное число является целым положительным')
else Write('Это число не является целым положительным')
End.