kashasha
07.03.2021 20:02

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. где ошибка?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
annakislova20
28.05.2020 22:22

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.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота