• Pascal:
    Числа Фибоначчи определяются по следующему закону: a1=1, a2=1, an+1=an+an-1. Определить член Фибоначчи, который больше заданного числа Х.

Ответы 3

  • извеняюсь не знал
    • Автор:

      yang
    • 5 лет назад
    • 0
  • var a1,a2,an,x:integer;beginwrite('x = ');readln(x);a1:=1; a2:=1; an:=1;while an<=x do begin an:=a1+a2; a1:=a2; a2:=an; end;writeln('an = ',an);end.Пример:x = 25an = 34
  • function Fib(n:integer):integer;begin  if n<3 then Fib:=1  else Fib:=Fib(n-1)+Fib(n-2)end;var  i,f,x:integer;begin  Write('X='); Read(x);  i:=1;  repeat    f:=Fib(i); Inc(i)  until f>x;  Writeln('Число Фибоначчи, большее введенного: ',f)end.ПримерX=27Число Фибоначчи, большее введенного: 34
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years