ЗАДАЧА ПО ИНФОРМАТИКЕ СРОЧНО ПОМОГИТЕ НАГРАДА 50 БАЛЛОВ МОЖНО РЕШАТЬ ДОЛГО ЛИШЬ БЫ РЕШИТЬ

Question

ЗАДАЧА ПО ИНФОРМАТИКЕ СРОЧНО ПОМОГИТЕ НАГРАДА 50 БАЛЛОВ
МОЖНО РЕШАТЬ ДОЛГО ЛИШЬ БЫ РЕШИТЬ

---

Answer 1

А) 39
б)26
в)2

Вот программа на ABC Pascal
var
x,y:real;
begin
Readln(x);
if x<0 then y:=sqr(x)+1 else<br>if x>= 1 then y:= 4*x-1 else
y:=2*x+1;
Writeln(y);
end.