Помощь - Поиск - Пользователи - Календарь
Полная версия: Цифровой корень числа
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
natka
Подскажите, дано число, нужно найти его цифровой корень (цифровой корень это суммирование цифр числа, затем цифр получившегося числа, пока эта сумма не станет цифрой). Программу, то я написала:
Код

var num,num_new,sum,a:integer;
BEGIN
writeln('chislo-?');readln(num);
repeat
      repeat
            a:=num mod 10;
            sum:=sum+a;
            num_new:=num div 10;
            num:=num_new;
      until num<10;
      sum:=sum+num;
      num:=sum;
      sum:=0;
until num<10;
writeln(num);
END.

проблема в том, что нужно сделать через рекурсивную функцию, а у меня с рекурсией очень плохо,
Может кто - нибудь подправит ;-(
volvo
Так:
function root(x: integer): integer;
var s: integer;
begin
if x < 10 then root := x
else begin
s := 0;
while x > 0 do begin
inc(s, x mod 10);
x := x div 10;
end;
root := root(s);
end
end;

var n: integer;
begin
readln(n);
writeln( root(n) );
end.

?
natka
Спасибо,
Volvo, ты просто супер!
hydroxychloroquine price walgree
Levetra From Canada
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.