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

irina162002 irina162002    2   05.10.2019 15:10    1

Ответы
arsenfedorko arsenfedorko  09.10.2020 21:53

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика