Даны два целых числа. Определить, сумма цифр которого из них больше. Подсчет суммы цифр организовать через процедуру
Ответы
Ответ дал:
0
function summa(n:integer):integer;
var m,s:integer;
begin
s:=0;
m:=abs(n);
while m>0 do
begin
s:=s+m mod 10;
m:=m div 10
end;
summa:=s
end;
var a,b,c,mx:integer;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
if summa(a)>summa(b) then mx:=a else mx:=b;
if summa(c)>summa(mx) then mx:=c;
write('Наибольшая сумма цифр в числе ',mx);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад