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

KatenaLipnitsk KatenaLipnitsk    3   25.05.2019 03:00    5

Ответы
MiraukiTokugava MiraukiTokugava  21.06.2020 02:43
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 :)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика