Дано целое число N (> 2). Сформировать и вывести целочисленный массив размера N, содержащий N первых элементов последовательности чисел Фибоначчи FK: F[1] = 1, F[2] = 1, F[K] = F[K–2] + F[K–1], K = 3, 4, … .}

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

Поделиться:

Похожие статьи: