Ответы
Ответ дал:
0
Ответ:
var
x, y: Double;
begin
Write ('X = ');
ReadLn (x);
if x < -2 then
y := Abs (x) + 2
else if x > 2 then
y := x + 1
else
y := 1;
WriteLn ('Y = ', y);
ReadLn;
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад