ПАСКАЛЬ..Заполнить массив из 20 элементов числами Фибоначчи и вывести результат на экран.
ПАСКАЛЬ..Заполнить массив из 20 элементов числами Фибоначчи и вывести результат на экран.
Гость
Ответ(ы) на вопрос:
Гостьvar ar:array[1..20]of integer;
a,b,c,i: integer;
begin
a := 0;
ar[1]:=a;
b := 1;
ar[2]:=b;
for i:=3 to 20 do begin
ar[i]:=a+b;
c := b;
b := a + b;
a := c; end;
for i:=1 to 20 do write(ar[i],' ');
end.
Не нашли ответ?
Похожие вопросы