Написать рекурсивную функцию подсчета суммы цифр натурального числа и с ее использованием определить в каком из двух заданных натуральных чисел сумма цифр больше. ( в Pascal ABC)

Написать рекурсивную функцию подсчета суммы цифр натурального числа и с ее использованием определить в каком из двух заданных натуральных чисел сумма цифр больше. ( в Pascal ABC)
Гость
Ответ(ы) на вопрос:
Гость
function NumSum(n:integer):integer; var d:integer; begin   d:=n mod 10;   if d=n then NumSum:=n   else NumSum:=d+NumSum(n div 10) end; var a,b,d:integer; begin   Write('Введите два числа: '); Read(a,b);   d:=NumSum(a)-NumSum(b);   if d>0 then Writeln('Сумма цифр в первом числе больше')   else     if d<0 then Writeln('Сумма цифр во втором числе больше')     else Writeln('Сумма цифр в обоих числах одинакова') end.
Гость
В любой версии заработает, как мне кажется. Попробуй.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы