Question

Se considera numarul întreg de 3 cifre. Sa se scrie programul care calculeaza suma cifrelor acestui numar. În PASCAL va rog

Answer 1

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: