В 1202г. Итальянский математик Леонард Пизанский (Фибоначчи) предложил такую задачу: пара кроликов каждый месяц дает приплод – двух кроликов (самца и самку), от которых через два месяца уже получается новый приплод, Сколько кроликов будет через год, если в начале года имелась одна пара? Согласно условию задачи числа, соответствующие количеству кроликов, которые появляются через каждый месяц, составляют последовательность 1, 1, 2, 3, 5, 8, 13, 21, 37, … Составьте программу, позволяющую найти все числа Фибоначчи, меньшие заданного числа N — Pascal(Паскаль)

var
  i,n:Longint;
{функция нахождения по номеру числа}
function Fib(X:Byte):Longint;
var
  s,n1,n2:Longint;
begin
  fib:= 1;
  if x<3 then
    exit;
  n1:=1; n2:=1;
  while x>2 do
  begin
    dec(x);
    s:= n2+n1;
    n1:= n2;
    n2:= s;
  end;
  fib:=S;
end;
{основная программа}
begin
  readln(n);
  if n<=1 then
    exit;
  i:=1;
  repeat
    write(fib(i),' ');
    inc(i)
  until
    fib(i)>=n;
end.

Похожие записи/страницы:

Leave a Comment

3 + 1 =