Ответ: 169.
var x,y: real;
begin
readln(x);
if (x<=0) then y:=0
else if (x<=1) then y:=x
else y:=x*x;
writeln(y);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ: 169.
var x,y: real;
begin
readln(x);
if (x<=0) then y:=0
else if (x<=1) then y:=x
else y:=x*x;
writeln(y);
end.