Заполнение числами Фибоначчи на Pascal
Заполнение числами Фибоначчи...
const
Sz = 100;
var
a: array [1..Sz] of integer;
N: integer;
begin
N := 20;
a[1] := 1;
a[2] := 1;
for var i:=3 to N do
a[i] := a[i-2] + a[i-1];
writeln('Числа Фибоначчи: ');
for var i:=1 to N do
write(a[i],' ');
end.
10.02.2015, 10:41 -
Категория: Статьи » Программирование » Pascal
