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

Question

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

Answer 1

67

executorg

25 февраля 2023

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

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: