Даны два натуральных числа. Выяснить в каком из них сумма цифрбольше.Написать программу в...

Question

Даны два натуральных числа. Выяснить в каком из них сумма цифр
больше.Написать программу в паскале абс,использую функцию.

Answer 1

Function summ (a : integer) : integer;
var
  s : integer;
begin
  s := 0;
  while (a > 0) do
  begin
    s := s + a mod 10;
    a := a div 10;
   end;
  summ := s;
end;

var
  a, b : integer;
begin
  read (a, b);
  a := summ (a);
  b := summ (b);
  if a > b then write ('in 1') else if b > a then write ('in 2') else write ('eq');
end.