procedure F(n: integer);
begin
write(n);
if n > 2 then
begin
F(n − 1);
F(n − 2);
F(n − 3);
F(n mod 2);
end
end;
Найти F(8)

levtikhonov04: Спасибо, но у меня есть просьба. Можете, пожалуйста. написать решение по-подробнее?

Turbikon: F(8) = 8 F(7) F(6) F(5) F(0)
F(7) = 7 F(6) F(5) F(4) F(1)
F(6) = 6 F(5) F(4) F(3) F(0)
F(5) = 5 F(4) F(3) F(2) F(1)
F(4) = 4 F(3) F(2) F(1) F(0)
F(3) = 3 F(2) F(1) F(0) F(1)
F(2) = 2
F(1) = 1
F(0) = 0

Turbikon: F(6) = 654321012103210121432101210321010
F(5) = 54321012103210121
F(4) = 432101210
F(3) = 32101

Turbikon: F(7) = 7654321012103210121432101210321010543210121032101214321012101

levtikhonov04: Спасибо.