Задано число N вывести соответствующий элемент ряда чисел фибоначи: 11235821

Question

Информатика

Лидия

17 июня, 11:06

Задано число N вывести соответствующий элемент ряда чисел фибоначи: 11235821

+3

Ответы (2)

Знаете ответ на вопрос?

Пануля · Answer 1

Ответа нет, напишу по-простому.

var

i, n, f1, f2, t: integer;

begin

Write ('Задайте натуральное число: ') ; Readln (n) ;

f1 : = 0; f2 : = 1;

for i : = 2 to n do begin t : = f2; f2 : = f1 + f2; f1 : = t end;

Writeln ('F (', n, ') = ', f2)

end.

Тестовое решение:

Задайте натуральное число: 10

F (10) = 55

Мелеха · Answer 2

Var a, b, c, n:integer; begin readln (n) ; if n 2 do begin c : = a + b; a : = b; b : = c; dec (n) end; writeln (c) ; end; end.