Составьте программу вывода на экран n первых чисел Фибонаги (это числовая последовательность 1,1,2,3,5,8,23, ...), которые вычисляются по правилу: а1=1, а2=1, а3=а2+а1, ..., аn=аn-1+an-2 (после - а - это индексы!) pascal ABC

Question

Информатика

Нона

5 марта, 13:29

Составьте программу вывода на экран n первых чисел Фибонаги (это числовая последовательность 1,1,2,3,5,8,23, ...), которые вычисляются по правилу: а1=1, а2=1, а3=а2+а1, ..., аn=аn-1+an-2 (после - а - это индексы!) pascal ABC

+5

Ответы (1)

Знаете ответ?

Римма · Answer 1

Var i, n:integer; a, b:int64; begin read (n) ; a:=1; b:=1; if (n=1) then write (a) else if (n>=2) then write (a,', ', b) ; if (n>2) then for i:=1 to n-2 do begin b:=b+a; a:=b-a; write (', ', b) ; end; End.