Ответ:
Program pm_1;
var x,y:real;
Begin
readln (x);
if x>0
then y:=x**2
else
if x<0
then y:=x**-2;
writeln (y);
end.
Объяснение:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Program pm_1;
var x,y:real;
Begin
readln (x);
if x>0
then y:=x**2
else
if x<0
then y:=x**-2;
writeln (y);
end.
Объяснение: