Напишите программу. Числа Фибоначчи (fn) определяются - вопрос №17487485011 от NarkoBaronTif 02.08.2022 11:41

Question

Информатика: Напишите программу. Числа Фибоначчи (fn) определяются формулами f0=f1=1; fn=fn-1+fn-2 при n=1,2..., тоесть это бесконечная последовательность чисел вида: 1,1,2,3,5,8,13,21,34,55,89,...Определите номер последнего числа Фибаначчи , который входит в диапазон от 1 до 2^16

NarkoBaronTif · Answer

var

v, c, a, b, n,count: integer;

begin

write('Введите максимальное число N = '); readln(n);

a := 0; b := 1;

count:=1;

repeat

c := b;

b := a + b;

a := c;

v := a + v;

inc(count);

until v-a>n;

writeln(count,': ',a);

end.