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

Question

Информатика

Пиама

3 февраля, 17:45

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

+4

Ответы (1)

Знаете ответ на вопрос?

Володяха · Answer 1

Program Fibanacni;

uses crt;

var a:array[1 ... 10] of integer;

i:integer;

begin

a[1]:=0; a[2]:=1;

writeln (a[1]) ;

writeln (a[2]) ;

for i:=3 to 10 do begin

a[i]:=a[i-1]+a[i-2];

writeln (a[i]) ;

end;

end.