Объяснение:
Program pr;
var f, x:real;
begin
readln(x);
if (0 < x) and (x < 2) then f:=(5-5*x)-sqr(x)
else f:=sqr(x);
writeln(f);
end.
Объяснение:
Program pr;
var f, x:real;
begin
readln(x);
if (0 < x) and (x < 2) then f:=(5-5*x)-sqr(x)
else f:=sqr(x);
writeln(f);
end.