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

1

Ответы и объяснения

2013-10-18T22:21:15+00:00
Var a, b: integer;

function sum(c: integer): integer;
var s: string;
    i, r: integer;
begin
     r := 0;
     s := inttostr(c);
     for i := 1 to length(s) do
         r := r + strtoint(s[i]);
     result := r;
end;

begin
     readln(a, b);
     if (sum(a) > sum(b)) then writeln('A > B')
        else if (sum(a) = sum(b)) then writeln('A = B')
                else writeln('A < B');
end.

I ♥ functions :)