Задание:
Дано целое число N (>0). Используя операции деления нацело и взятие остатка от деления найти количество и сумму его цифр.
Решение:
var n,count,sum: integer; begin read (n); count: =0; sum: =0; while (n<>0) do inc (count); sum: =sum+(n mod 10); n: =n div 10; endend.
Знаете другой ответ?