Урок 21 Задача 5
Primary tabs
Пользователь получает на вход целое положительное число N напишите рекурсивную процедуру, которая выведет все числа Фиббоначи от первого до N-ого
procedure fib (a, b, n: integer); begin if not (n = 0) then begin write(a, ' '); fib (b, a+b, n-1); // передаем новые значения и счетчик, уменьшенный на 1 end; end; begin fib(1, 1, 8); // передаем первые два числа и N-ное число (оно же счетчик) readln(); end.
Консоль:
1 1 2 3 5 8 13 21
- Log in to post comments
- 321 reads