Question

решить задачу по информатике

Answer 1

Program Funkcia;
Var x,y: real;
Begin
Writeln(x);
Readln(x);
If x>=0
Then y:=sqrt(x)
Else y:=sqr(x);
Writeln('y= ', y);
End.

При х=0 y=0, при х=1 у=1, при х=-5 у=25.