Число Фибоначчи, помогите пожалуйста
Задано целое натуральное число, определить является ли оно n-ым членом Фибоначчи, чему равна n
|
НА ПАСКАЛЬ
|
Вот что-то про фибоначчи валялось на компе на паскале.
uses crt; var n:integer; function fibon (n:integer):integer; begin readln(n); if (n=0) or (n=1) then fibon:=1 else fibon:=fibon (n-1)+fibon(n-2); end; begin clrscr ; for n:=0 to 6 do writeln (fibon(n)); readkey end. |
чему "for n:=0 to 6 do" именна к 6?
|
ну выводится там 6 первых чисел. поставьте другие границы или просто вызовите функцию с каким-то числом и будет вам другие значения
|
Часовой пояс GMT +4, время: 10:43. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.