Question

Помогите пожалуйста,очень нужно! вопрос жизни и смерти! 1. С клавиатуры вводится число. Вывести его модуль. 2. С клавиатуры вводится число. Вывести -1, если оно отрицательное, 0, если оно равно 0, и 1, если оно положительное.

Answer 1

1.
//PascalABC.NET
//Версия 3.3, сборка 1611 
begin
write(abs(ReadReal()));
end.
2.
//PascalABC.NET
//Версия 3.3, сборка 1611 
begin
var a:=ReadReal();
if a<0 then write(-1) else if a=0 then write(0) else write(1);
end.

Answer 2

//1

var
a:REAL;
begin
Read(a);
Writeln(abs(a));
end.

//2

var
a:REAL;
begin
Read(a);
if (a > 0) then
  Writeln(1)
    else
      if (a = 0) then
        Writeln(0)
          else
            Writeln(-1);
end.