Рекурсия: сложение двух чисел, используя только прибавление единицы - Free Pascal
Формулировка задачи:
Помогите, пожалуйста, с задачей. Заранее спасибо.
Написать рекурсивную функцию сложения двух чисел, используя только прибавление единицы.
Решение задачи: «Рекурсия: сложение двух чисел, используя только прибавление единицы»
textual
Листинг программы
function add(x, y, k: integer): integer;
begin
if k <= x
then add := add(x, y, k + 1) + 1
else add := y
end;
var
a, b: integer;
begin
repeat
write('a >= 0; a = ');
readln(a)
until a >= 0;
write('b = ');
readln(b);
write('a + b = ', add(a, b, 1));
readln;
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д