90

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

sergeevich-2 30 марта 2023

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

категория: информатика

67

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

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

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...