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

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

Задать свой вопрос
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 lt; 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) gt; 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.


Владислав Лендо
Пренебрегал указать что на C
Боря Проконцев
Впору :)
Amelija Vatolina
Отметь решение как нарушение и модер его удалит. Может быть кто-то напишет на шарпе
Лариса Герасянова
Это Вы напрасно. Нарушения никакого нет. То, что создатель вопроса не указал подходящий ему язык - это его оплошность. Отвечающие в этом случае могут избирать хоть какой язык на свое усмотрение.
Полина Сибирзянова
Пущай. У человечка заключительные баллы :)
Вадик Джинан
Разумно: отмечать ответы, которые Вам дали как Неправильные ответы...
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)gt;e) do
 begin
 i:=i+1;
 if ilt;=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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт