Question

Помогите срочно пожалуйста жизненно необходимо.Последние баллы отдаю за эту задачу.Вычислить 5-й член последовательности образованный дробями 1/1 2/1 3/2 т.е числитель(знаменатель) следующего члена последовательности получается сложением числителей(знаменателей) двух предыдущих членов. Также нужно вычислить член последовательности который отличается от предыдущего члена не более чем на 0,001.

Answer 1

const e=0.001;
var a,b,c,i:integer;
begin
a:=1;
b:=2;
i:=1;
write('1/1 ');
while (abs(b/a-(a+b)/b)>e) do
 begin
 i:=i+1;
 if i<=5 then write(b,'/',a,' ');
 c:=a+b;
 a:=b;
 b:=c;
 end;
writeln;
writeln(a+b,'/',b,' ');
end.

Результат:
1/1 2/1 3/2 5/3 8/5
89/55