igor133

Задано целое натуральное число, определить является ли оно n-ым членом Фибоначчи, чему равна n

igor133

НА ПАСКАЛЬ

Gruvi

Вот что-то про фибоначчи валялось на компе на паскале.

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.

igor133

чему "for n:=0 to 6 do" именна к 6?

kreol

ну выводится там 6 первых чисел. поставьте другие границы или просто вызовите функцию с каким-то числом и будет вам другие значения