{общий член последовательности можно задать формулой 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.
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.