Fateevaas
4 год назад
Пожалуйста посчитайте пожалуйста,очень нужно! вопрос жизни и смерти!1. С клавиатуры вводится число. Вывести его модуль.2. С клавиатуры вводится число. Вывести -1, если оно отрицательное, 0, если оно равно 0, и 1, если оно положительное.
ОТВЕТЫ
Лев
Oct 24, 2020
//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.
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.
500
Смежные вопросы:
