Овсей
7 год назад
Помогите пожалуйста надо очень срочно прям вообще
ОТВЕТЫ
Neomab
Jul 11, 2019
Var
x,y:real;
begin
Read(x);
if xlt;=-20 then y:=3*x*x*x
else
if xlt;=30 then y:=abs(x) else y:=30;
Writeln(y)
end.
x,y:real;
begin
Read(x);
if xlt;=-20 then y:=3*x*x*x
else
if xlt;=30 then y:=abs(x) else y:=30;
Writeln(y)
end.
157
Смежные вопросы:
