Дано целое число. Если оно является положительным, то вывести 1; если отрицательное, то вывести -1, если 0, то вывести 0.)Помогите

Question

Устинович

6 год назад

ОТВЕТЫ

Saah

Jul 24, 2019

Var n:integer;beginreadln(n);if ngt;0 then writeln(1);if nlt;0 then writeln(-1);if n=0 then writeln(0);end.

80