Дан массив из 16 целых чисел, заполнить его так что бы первый был равен 1, второй - 2 а каждый следующий сумме двух предыдущих

Question

Информатика

Флавиан

24 октября, 02:53

Дан массив из 16 целых чисел, заполнить его так что бы первый был равен 1, второй - 2 а каждый следующий сумме двух предыдущих

+1

Ответы (1)

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

Петяша · Answer 1

Var i:integer;

a:array [1 ... 16] of integer;

begin

a[1]:=1;

a[2]:=2;

for i:=3 to 16 do

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

for i:=1 to 16 do

write (a[i],' ') ;

end.