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

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.

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

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