Задача 4 Урок 20
Primary tabs
Пользователь получает на вход целое положительное число N напишите рекурсивную процедуру, которая выведет все числа Фиббоначи от первого до N-ого
program lesson20_4; procedure numF(f1, f2, n: integer); begin write(f1, ' '); if (f2 < n) then numF(f2, f2 + f1, n); end; var n: integer = 30; begin numF(0, 1, n); readln(); end.
- Log in to post comments
- 563 reads