Răspuns:
program suma;
var n, suma_cifrelor, cifra_unitati, cifra_zeci, cifra_sute:integer;
begin
write('Dati numarul n de trei cifre : ');
readln(n);
cifra_unitati := n mod 10;
cifra_zeci := (n div 10) mod 10;
cifra_sute := (n div 100) mod 10;
suma_cifrelor := cifra_sute+cifra_zeci+cifra_unitati;
writeln('Suma cifrelor numarului ',n,' este : ',suma_cifrelor);
readln;
end.
Explicație: