Question

Дано условие.
Введите целое число с клавиатуры.Если это число больше 0,то программа должна выполнить действие «Это число отрицательное»,иначе «Это число положительное».Составьте программный код.
Помогите пожалуйста 8 и 9.

Answer 1

program n9;

var a: integer;

begin

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

readln(a);

if ((a mod 2)=0)then writeln('Это число положительное' )

else writeln('Это число отрицательно' )

end.