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)
y:=3*(x*x+1);
writeln(y);
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.