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

Question

Информатика

Марин

14 сентября, 01:52

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

+2

Ответы (2)

Знаете ответ?

Денисыч · Answer 1

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.

Петяня · Answer 2

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

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