Вопрос по информатике:
Написать рекурсивную функцию подсчета суммы цифр натурального числа и с ее использованием определить в каком из двух заданных натуральных чисел сумма цифр больше. ( в Pascal ABC)
- 21.11.2017 10:50
- Информатика
- remove_red_eye 9760
- thumb_up 51
Ответы и объяснения 2
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.
- 22.11.2017 12:57
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.