Question

Ооооочень срочно
В паскале сделать 2 задание

Answer 1

var x,i:integer;f:Real;

begin

for x:=-4 to 4 do begin

if (x >= (-2)) and (x < 0) then

f:= sqr(x)

else if (x > 0)and(x < 2) then  

f:= sqrt(x)

else if x > 2 then  

f:= x -1;

 

writeln(x:3,f:6 );

 end;

end.