Даны три целых числа. Определите, у которого из них больше сумма цифр. Подсчет суммы цифр организуйте через подпрограмму

296

373

Посмотреть ответы 2

Ответы на вопрос:

VanyaKEKEP

Другие предметы

4,4(27 оценок)

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.