Нужны два варианта решения: рекурсивный и итерационный.
1. Рекусия уже написана но очень быстро переполняется стек. Подкиньте идею оптимизации.
2. Нужно решение итерационное с помощью имитации стека массивом записей. smile
Ну, я же дал тебе идею оптимизации рекурсии:
Function FAcc(n, m: LongInt): Longint;
begin
While n <> 0 Do Begin
Dec(n);
If m = 0 Then m := 1 Else m := FAcc(n + 1, m - 1);
End;
FAcc := m + 1;
end;
cialis and high blood pressure