Question

Решите срочно надо пожалуйста

Answer 1

while n > 0 do begin 
S := S + n mod 10; 
n := n div 10; 
end; 

Все! В S сумма цифр.