Recur10. Описать рекурсивную функцию DigitSum($$K$$) целого типа, которая находит сумму цифр целого числа $$K$$, не используя оператор цикла. С помощью этой функции найти суммы цифр для пяти данных целых чисел.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
program Recur10; var i,K:integer; Function DigitSum(A:integer):integer; begin if (A Div 10)=0 then DigitSum:=(A mod 10) else DigitSum:=(A mod 10)+DigitSum(A Div 10); end; begin for i:=1 to 5 do begin Write('K: '); Readln(K); Writeln(DigitSum(K)); end; end. |
Другие задачи из раздела Recur можно посмотреть здесь.
Класс спасибо
Я рад, что вам понравилось.
Спасибо огромное!
Можете в с++ сделать этот код?