Помогите срочно пожалуйста жизненно необходимо.Последние баллы отдаю за эту...

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,' ');<br> 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

Answer 2

//PascalABC.NET
var
    nt, dt : integer;
begin
    var n1 := 1; var d1 := 1;
    var n := 2; var d := 1;
    var i := 2;
    while i < 5 do begin
        nt := n; dt := d;
        n := n + n1; n1 := nt;
        d := d + d1; d1 := dt;
        i += 1
    end;
    writeln(n,'/',d);
    
    n1:=1; d1:=1;
    n:= 2; d:=1;
    while (abs(n/d - n1/d1) > 0.001) do begin
        nt := n; dt := d;
        n := n + n1; n1 := nt;
        d := d + d1; d1 := dt;
    end;
    writeln(n,'/',d,'-',n1,'/',d1,'=',n/d-n1/d1)
end.

---

Comments

Забыл указать что на C#

---

Вовремя :)

---

Отметь решение как нарушение и модератор его удалит. Может быть кто-то напишет на шарпе

---

Это Вы напрасно. Нарушения никакого нет. То, что автор вопроса не указал нужный ему язык - это его оплошность. Отвечающие в этом случае могут выбирать любой язык на свое усмотрение.

---

Пущай. У человечка последние баллы :)

---

Логично: отмечать ответы, которые Вам дали как НЕверные ответы...