Răspuns :

program functie;

var

x1,x2,i:integer;

begin

 readln(x1);

 readln(x2);

 for i:=x1 to x2 do

   begin

   if(i>=4) then

     begin

     writeln(2*sqrt(i+6));

     end

   else

     begin

     writeln(3-abs(i));

     end

   end

end.

ID Alte intrebari