Объяснение:
function sum(x:integer):integer;
begin
sum:=(x div 100)+(x div 10 mod 10)+(x mod 10);
end;
var a,b,sa,sb:integer;
begin
writeln('Введите 3 трехзначных числа:');
readln(a,b);
sa:=sum(a);
sb:=sum(b);
writeln('sa = ',sa,' sb = ',sb);
if sa>sb then writeln('Сумма цифр в числе ',a,' больше')
else if sb>sa then writeln('Сумма цифр в числе ',b,' больше')
else writeln('Суммы цифр в числах равны');
end.
Пример:
Введите 3 трехзначных числа:
25 41
sa = 7 sb = 5
Сумма цифр в числе 25 больше
