СРОЧНО, ИНФОРМАТИКА!!!!!!!!!!! 1) Определить чётное и нечётное, положительное или...

Question

СРОЧНО, ИНФОРМАТИКА!!!!!!!!!!!
1) Определить чётное и нечётное, положительное или отрицательное число.

Answer 1

Var x: Integer;
begin
writeln('Введите число');
readln(x);
if x mod 2=0 then writeln('Число ',x,' - чётное') else
writeln('Число ',x,' - нечётное');
if x>0 then writeln('Число ',x,' - положительное') else
if x<0 then writeln('Число ',x,' - отрицательное') else<br>writeln('Число ',x,' - неположительное и неотрицательное число')
end.