Паскаль Ввести число и вывести на экран сообщение о том, является ли это число положительным, отрицательным или это число ноль. записать результат в файл.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Поделитесь своими знаниями, ответьте на вопрос:
Var
n : integer
Begin
Writeln(n);
If n>0 then writeln('число положительное');
If n<0 then writeln('число отрицательное');
If n=0 then writeln('число равно нулю');
End.