Question

Создать рекурсивную функцию, которая находит цифровой корень числа. Pascal

Answer 1

function kor(n:integer):integer;

var s:integer;

begin

if n>9 then

begin

s:=0;

while n>0 do

 begin

 s:=s+n mod 10;

 n:=n div 10;

 end;

 kor:=kor(s);

 end

else kor:=n;

end;

begin

writeln(kor(87345691));

writeln(87345691 mod 9);

end.

Результат:

7

7

Answer 2

Конечно, вот пример рекурсивной функции на языке Pascal для нахождения цифрового корня числа:

pascalCopy code
function DigitalRoot(number: Integer): Integer;
var
  sum: Integer;
begin
  // Базовый случай: если число состоит из одной цифры, то возвращаем его
  if number < 10 then
  begin
    Result := number;
    Exit;
  end;

  // Иначе, считаем сумму цифр числа
  sum := 0;
  while number > 0 do
  begin
    sum := sum + (number mod 10);
    number := number div 10;
  end;

  // Рекурсивно вызываем функцию для суммы цифр
  Result := DigitalRoot(sum);
end;

// Пример использования функции:
var
  number: Integer;
begin
  Write('Введите число: ');
  ReadLn(number);
  WriteLn('Цифровой корень числа: ', DigitalRoot(number));
end.

Эта функция будет находить цифровой корень числа путем суммирования его цифр до тех пор, пока не останется одна цифра.