■ Pascal_021 ► Sumar los dígitos de un número entero

Ejercicio 021: Solicitar un número entero y sumar sus dígitos.

Entrada: Un número entero.

Salida: La suma de sus dígitos.

Program Pascal_021;

uses

    crt;

var

    numero, suma, i : integer;

begin

    WriteLn('Ingresa un número');

    ReadLn(numero);

    

    suma := numero mod 10;

    while numero > 9 do

    begin

        numero := numero div 10;

        suma := suma + numero mod 10;

    end;

    WriteLn(suma);

    ReadKey();

End.

Este ejercicio se resuelve mod y div, que devuelven el residuo y la parte entera del número respectivamente, por ejemplo:
n := 123

WriteLn(n mod 10);

WriteLn(n div 10);

Imprimirá:

3

12