3адана программа вычисления n-го элемента из ряда чисел Фибоначчи (n>2) согласно...

Question

3адана программа вычисления n-го элемента из ряда чисел Фибоначчи (n>2) согласно определению ряда: F1=1, F2=2, Fi=Fi-1+Fi-2, i = 3, 4,… Выполните тестирование программы при различных значениях N. Program Numbers_Fib; Var K, N, A, B, C: integer; Begin Writeln (‘введите номер N искомого числа Фибоначчи’); Readln (N); A:=1; {первый элемент} B:=2; {второй элемент} For k:=3 to N do { цикл выполняется для получения элементов с 3-го по N-ый} begin C:=B+A; {новый элемент, с номером k} A:=B; {элемент с номером k-1 становится k-2-м элементом } B:=C; {элемент с номером k становится k-1-м элементом } End; Writeln (N,‘- ый элемент последовательности равен’, C); End. Где ошибка?

Answer 1

Program Numbers_Fib;

Var K, N, A, B, C: integer;

Begin

Writeln {введите номер N искомого числа Фибоначчи};

Readln (N);

A:=1;    {первый элемент}

B:=2;    {второй элемент}

For k:=3 to N do{ цикл выполняется для получения элементов с 3-го по  N-ый}

begin

  C:=B+A;{новый элемент, с номером k}

  A:=B;{элемент с номером k-1 становится k-2-м элементом }

  B:=C;{элемент с номером k становится k-1-м  элементом }

End;

Writeln {N,‘- ый элемент последовательности равен’, C};

End.