Pascal:Числа Фибоначчи определяются по следующему закону: a1=1, a2=1, an+1=an+an-1. Определить член Фибоначчи, который больше заданного числа Х.
Pascal:
Числа Фибоначчи определяются по следующему закону: a1=1, a2=1, an+1=an+an-1. Определить член Фибоначчи, который больше заданного числа Х.
Гость
Ответ(ы) на вопрос:
Гостьvar a1,a2,an,x:integer;
begin
write('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 = 25
an = 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
Не нашли ответ?
Похожие вопросы