Дано число, дать характеристику числа:
а) положительное или отрицательное
б)четное или нечетное

Если Pascal, то вот:Program z1;var a:integer;beginWrite('Введите число: '); read(a);if (a>0) then Writeln('Данное число положительное')else Writeln('Данное число отрицательное');if (a mod 2=0) then Writeln('Данное число чётное')else Writeln('Данное число нечётное');end.