Числа фибоначчи это числовая последовательность в которой первые 2 числа единицы, а каждое последующее равно сумме двух предыдущих. дано натуральное число n . найти два ближайших к нему числа фибоначчи. одно из них меньше n
другое больше n. вывести их в порядке возрастания

//pascalabc.net 3.2 сборка 1318 var   n,i,fibpre,fibpost,fib1,fib2: integer; begin readln(n); fib1: =1; fib2: =1; while (n> =fib1) and (n> =fib2) do begin   if fib1< n then fibpre: =fib1;   if fib2< n then fibpre: =fib2;   fib1: =fib1+fib2;   fib2: =fib1+fib2; end; if fib1=n then fibpost: =fib2 else if n> fib1 then fibpost: =fib2 else fibpost: =fib1; if n=1 then writeln('нет числа фибоначчи меньше 1 ',fibpost) else writeln(fibpre,' ',fibpost); end. пример ввода: 3 пример вывода: 2 5

Рассматриваются значения массива с индексами от 3 до 7.
Если его значение меньше пяти, то прибавляем к общей сумме, изначально равной 0.
Просмотрим все значения (от 3 до 7):
R[3] = -5 < 5. Сумма = 0 + R[3] = 0 + (-5) = -5
R[4] = 6 > 5. Условие не выполняется.
R[5] = 14 > 5. Условие не выполняется.
R[6] = 9 > 5. Условие не выполняется.
R[7] = 0 < 5. Сумма = -5 + R[7] = -5 + 0 = -5
R[8] не входит в рассматриваемую часть (цикл от 3 до 7).

Ответ: -5.

Лишняя клавиша home

1 байт = 8 бит. 1 килобайт = 1024 байта. 1 мегабайт = 1024 килобайта.