В программе паскаль составить программу…

Question

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

Answer 1

46

apollon50

13 апреля 2023

Program Fibonacci; Uses Crt; var i,n: integer; {Итерационный метод вычисления чисел Фибоначчи}function fib_it (n: integer): integer; var a,b,c,i: integer; begin a: =1; b: =1; if (n=1) or (n=2) then fib_it: =1 else begin for i: =3 to n do begin c: =a+b; a: =b; b: =c; end; fib_it: =c; end; end; {main program}begin clrscr; write ('Введите n: '); readln (n); for i: =1 to n do write (fib_it (i) ,'); readkey; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: