Напишите в Паскале программу для вычисления цифровой суммы положительного целого числа. Даю 70 баллов
Ответ
1
Программа:
Pascal:
var
n, i: integer;
begin
write('n = '); readln(n);
repeat
i := i + n mod 10;
n := n div 10
until n = 0;
writeln(i);
end.