Вычислить значение рекурсивной функции

[Ann2807]

Здравствуйте, помогите, пожалуйста, вычислить значение функции.
И объясните, как это правильно посчитать. Меня смущает то, что в строке else div:=div(a-b, b)+1
два параметра



Каков будет результат функции при a=5? b=5?
function div(a, b: byte): byte;
begin
if a<b then div:=0
else div:=div(a-b, b)+1;
end.

[BDA]

Почему Вас смущают 2 параметра? Ведь у функции их 2.
Начинайте на бумажке пошагово вызывать функцию:
1) div(5, 5)
смотрите, какая ветка условного оператора выполняется
идете по ветке false: результат равен div(0, 5) + 1
2) div(0, 5)
выполняется ветка true: результат равен 0
3) Подставляете в предыдущий шаг и получаете результат 1

Например:
div(12, 5) = div(7, 5) + 1
div(7, 5) = div(2, 5) + 1
div(2, 5) = 0
=> div(12, 5) = 2

UPD
Пожалуйста

[Ann2807]

Спасибо, не знала, куда единицу деть