Задание:
Даны два натуральных числа. Выяснить в каком из них сумма цифр больше. (Определить функцию для расчета суммы цифр натуральногочисла)
Решение:
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
Знаете другой ответ?