Информатика, опубликовано 2018-08-22 18:59:02 by Гость

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

Ответ оставил Гость

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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.