Question

Cоставить два алгоритма:

Answer 1

program gt;
var x,y:real;
begin
readln(x);
if(x=0)then y:=2*x-1 else  y:=x*x+3;
writeln('x=',x,' y=',y);
end.
2)
program gt;
var x,y:real;
begin
readln(x);
if(x=0)then y:=0 else  y:=x*x;
writeln('x=',x,' y=',y);
end.