Дано целое число N (> 2). Сформировать и вывести целочисленный массив размера N, содержащий N первых элементов последовательности чисел Фибоначчи FK: F[1] = 1, F[2] = 1, F[K] = F[K–2] + F[K–1], K = 3, 4, … .}
Категория: Delphi/Pascal
2012-12-22 17:27:22
code: #pascal
program Array5; const MaxN = 10; var k,n:integer; f: array [1..MaxN] of integer; begin readln(n); f[1]:=1; f[2]:=1; for k:=3 to n do f[k]:=f[k-2]+f[k-1]; for k:=1 to n do write(f[k]:3); writeln; readln; end.
автор: lamed
Поделиться: