Дано целое число. Если оно является положительным, то вывести 1; если отрицательно?
Дано целое число. Если оно является положительным, то вывести 1; если отрицательно??, то вывести -1, если 0, то вывести 0.)Помогите
Ответ(ы) на вопрос:
Гость
Var n:integer;beginreadln(n);if n>0 then writeln(1);if n<0 then writeln(-1);if n=0 then writeln(0);end.
Не нашли ответ?
Похожие вопросы