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

Ответы 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.
    • Автор:

      mittenswu
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years