Составить алгоритм, блок-схему, программу вычисления функции y =0, 5*sqr(x) +sqrt(x) +2 для всех целых x из промежутка[-20; 20] !

program picaso; uses crt; var a,b,c,minim: real; procedure min(a,b: real ; var minim: real); begin      if a> b then minim: =b else minim: =a; end; begin clrscr;       writeln('a'); readln(a);       writeln('b'); readln(b);       writeln('c'); readln(c);             min(a,b,minim);       min(minim,c,minim);             writeln('min=',minim);       readln; end.

program fibonacci;

uses crt;

var   i,n: integer;

  {итерационный метод вычисления чисел фибоначчи}

function fib_it(n: integer): integer;

var a,b,c,i: integer;

begin

      a: =1; b: =1;

      if (n=1) or (n=2) then  fib_it: =1

        else     begin

                        for i: =3 to n do 

                                  begin

                                    c: =a+b;

                                      a: =b;  

 

                                        b: =c;  

                                end;        

 

                          fib_it: =c;

                    end;      

 

  end;

 

     

 

{main program}

begin

      clrscr;

 

      write('введите n: ');

      readln(n);

 

      for i: =1 to n do write(fib_it(i),'   ');  

 

      readkey;

 

end.