20 января 2026 в 15:53
(текущая версия от 20 января 2026 в 16:59)
Публичный:
Нет
Тип словаря:
Тексты
Цельные тексты, разделяемые пустой строкой (единственный текст на словарь также допускается).
Содержание:
1
function Fibonacci(n: integer): longint; var i: integer; p, q, r: longint; begin if n <= 0 then begin Fibonacci := 0; exit end; q := 0; r := 1; for i := 2 to n do begin p := q; q := r; r := p + q end; Fibonacci := r end;
Комментарии