Паскваль Вычислите n чисел Фибоначи:F1=1; F2=1;...;Fn=Fn-1+Fn-2, например: F3=F2+F1=1+1=2,F4=2+1=3 b т.д.

Есть ответ
18.12.2022
475

Ответ


var n:longint;

function f(n:integer):longint;

begin

if (n=1)or(n=2) then f:=1 else

f:=f(n-1)+f(n-2);

end;

begin

write("Vvedite poziciu chisla: ");

read(n);

write("chislo ryada na dannoy pozicii ravno ",f(n));

end.


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
18.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.