Даны четыре натуральных числа. Вывести на экран то из них, сумма цифр которого — наибольшая (программа Паскаль)
Вопрос посетителя
Даны четыре натуральных числа. Вывести на экран то из них, сумма цифр которого — наибольшая
Ответ эксперта
procedure S(i:int64;var r:int64);
begin
r:=0;
while i>0 do begin
r:=r+i mod 10;
i:=i div 10;
end;
end;
var
a,sa,b,sb,c,sc,d,sd:int64;
begin
write(‘Введите 4 числа:’);
readln(a,b,c,d);
S(a,sa);S(b,sb);S(c,sc);S(d,sd);
if sa>sd then begin sd:=sa;d:=a;end;
if sb>sd then begin sd:=sb;d:=b;end;
if sc>sd then begin sd:=sc;d:=c;end;
writeln(‘Ответ:’,d);
end.
