ОЧЕНЬ СРОЧНО!! ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ!!

Приложения:

Ответы

Ответ дал: micro2002
0

uses crt;


var x, y:real;


begin


read(x);


if x<=-70 then


y:=x*x+50


else


if (-70<x) and (x<=0) then


y:= abs(x)


else


y:=3*(x*x+1);


writeln(y);


end.

Ответ дал: SpaceStationAlpex
0
((
Ответ дал: SpaceStationAlpex
0
Хорошая программа.
Ответ дал: SpaceStationAlpex
0
Молодец!
)
Ответ дал: micro2002
0
Спасибо
Ответ дал: SpaceStationAlpex
0
Ага ;)
Похожие вопросы