Question

Вычисление чисел Фибоначчи (паскаль)А[1]=1А[2]=1А[3]=2А[4]=3А[5]=5А[6]=8

Answer 1

Program Fib;
var a:array [0..100] of integer;
      i,n:integer;
      begin
              a[1]:=1;
              a[2]:=1;
              for i:=3 to 100 do
              begin
              a[i]:=a[i-1]+a[i-2];
               Write('a[',i,'] = ',a[i],'   ');
               end;
      end.