Question

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

Answer 1

Если Pascal, то вот:

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