program fibonacci; uses crt; var i, n: integer; {итерационный метод вычисления чисел фибоначчи}function fib_it(n: integer): integer; var a,b,c,i: integer; begin a: =1; b: =1; if (n=1) or (n=2) then fib_it: =1else begin for i: =3 to n do begin c: =a+b a: =b; b: =c; end; fib_it: =c; end;
end; {main program}begin clrscr; write('введите n: '); readln(n); for i: =1 to n do write(fib_it(i),' '); readkey; end.
Поделитесь своими знаниями, ответьте на вопрос:
Найдите закономерности и продолжите последовательности а) а, б, в, г, д, б) а, в, д, в) анна, борис, валентина, геннадий..