Question

Дано {1/1, 2/1, 3/2, 5/3, 8/5, 13/8...} Нужно вывести первые n членов последовательности и посчитать k член на паскале

Answer 1

{общий член последовательности можно  задать формулой   Sn=((An-1)+(Bn-1))/(An-1)  где A- числитель,  В - знаменатель }

const n=10;
var A,B,C,i,k: integer;
begin
   A:=1;  B:=1;
{ вывод последовательности на экран  }
   for i:=2 to n do
      begin
          C:=A;     A:=A+B;       B:=C; 
          writeln(i,'  ->  ',A,'/',B);
      end;
{ подсчет k - го члена  }
    k:=20;  A:=1;  B:=1;
    for i:=2 to k do 
       begin   
          C:=A;       A:=A+B;       B:=C;
       end; 
    writeln(k,' - ый элемент = ',A,'/',B); 
 end.