Регистрация
XMuhamedKinggX
06.10.2021 19:32
Информатика
Есть ответ 👍

Напишите программу, вычисляющую и выводящую на экран 10 первых членов последовательности фибоначчи

188
497
Посмотреть ответы 2

Ответы на вопрос:

кент1346
кент1346
4,6(17 оценок)

var

  i: integer;

  af: array [1..10] of integer;

begin

  af [1] : = 1;   // первый член ряда равен 1

  af [2] : = 1;   // второй член ряда равен 1

  for i : = 3 to 10 do begin   // цикл, начинающийся с 3-го члена до заданного (десятого)

    af [i] : = af [i - 2] + af [i - 1];   // каждый член ряда равен сумме двух предыдущих

  end;

  for i : = 1 to 10 do begin   // вывод на экран первых 10 членов ряда

    write (af [i], ', ');

  end;

end.

// 2-й вариант (без использования массива)

var

  a, b, c, i: integer;

begin

  a : = 1;

  write (a, ', ');

  b : = 1;

  write (b, ', ');

  for i : = 3 to 10 do begin

    c : = a + b;

    write (c, ', ');

    a : = b;

    b : = c;

  end;

end.

ievghienii1
ievghienii1
4,8(39 оценок)
32 мегабайта это 1024*1024*32 байт 2^20 х 2^5= 2^25 байт. переведет в бит 2^25 х 8= 2^25 х 2^3= 2^28 2^28 : 2^25= 2^3 =8 сек вроде так. уже не помню, старый.

Популярно: Информатика