Предмет: Информатика,
автор: zac00
Напишите нерекурсивную функцию Фибоначи
Аноним:
Что она должна принимать в качестве параметров и что возвращать?
Ответы
Автор ответа:
0
PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018
Внимание! Если программа не работает, обновите версию!
function Fib(n: integer): integer;
begin
if n < 3 then Result := 1
else
begin
var (a, b) := (1, 1);
for var i := 3 to n do
(a, b) := (a + b, a);
Result := a
end
end;
begin
for var i := 1 to 10 do Fib(i).Print; // контрольный пример
end.
1 1 2 3 5 8 13 21 34 55
Похожие вопросы
Предмет: География,
автор: sonya146374
Предмет: Математика,
автор: 19mukola19
Предмет: Химия,
автор: nas6669
Предмет: Алгебра,
автор: miniona
Предмет: Алгебра,
автор: anlevina