Срочно, пожалуйста!!! Напишите программу для вычисления системы уравнения x^2, при x>0 y= x^-2, при x<0 2 С блок схемой если можно<hr>
Ответ:
Program pm_1;
var x,y:real;
Begin
readln (x);
if x>0
then y:=x**2
else
if x
then y:=x**-2;
writeln (y);
end.
Объяснение: