ΔΙΑΣΠΑΣΗ ΕΝΟΣ ΑΡΙΘΜΟΥ

Πρόγραμμα σε ΓΛΩΣΣΑ που διαβάζει έναν θετικό τετραψήφιο αριθμό και υπολογίζει και εμφανίζει το άθροισμα των ψηφίων του

ΠΡΟΓΡΑΜΜΑ Άθροισμα_Ψηφίων
ΜΕΤΑΒΛΗΤΕΣ
    ΑΚΕΡΑΙΕΣ: num, digit1, digit2, digit3, digit4, tmp1, tmp2, sum
ΑΡΧΗ
    ΔΙΑΒΑΣΕ num
    digit1 <-- num DIV 1000    !Εύρεση των χιλιάδων
    tmp1 <-- num MOD 1000
    digit2 <-- tmp DIV 100      !Εύρεση των εκατοντάδων
    tmp2 <-- tmp MOD 100
    digit3 <-- tmp2 DIV 10      !Εύρεση των δεκάδων
    digit4 <-- tmp MOD 10      !Εύρεση των μονάδων
    sum <-- digit1 + digit2 + digit3 + digit4
    ΓΡΑΨΕ 'Το άθροισμα των ψηφίων του αριθμού ', num, ' είναι: ', sum
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ