Написать рекурсивную функцию подсчета суммы цифр натурального числа и с ее использованием определить в каком из двух заданных натуральных чисел сумма цифр больше. ( в Pascal ABC)
Аноним:
Усточните: Pascal ABC или PascalABC.NET. Там отличия есть.
Ответы
Ответ дал:
1
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.
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.
Ответ дал:
0
В любой версии заработает, как мне кажется. Попробуй.
Приложения:
Вас заинтересует
6 месяцев назад
1 год назад
1 год назад
5 лет назад
5 лет назад
7 лет назад