! ===================================================================
! Να γίνει πρόγραμμα που να ζητάει έναν τετραψήφιο ακέραιο αριθμό και
! να αποθηκεύει τα ψηφία του σε 4 διαφορετικές μεταβλητές. Αν ο
! αριθμός που θα δοθεί δεν είναι τετραψήφιος να ξαναζητείται.
! ===================================================================
ΠΡΟΓΡΑΜΜΑ Απομόνωση_ψηφίων
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Χ, Ψ1, Ψ2, Ψ3, Ψ4, υπόλοιπο
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε έναν τετραψήφιο αριθμό:'
ΔΙΑΒΑΣΕ Χ
ΑΝ (Χ<1000) Η (Χ>9999) ΤΟΤΕ
ΓΡΑΨΕ 'Ο αριθμός αυτός δεν είναι τετραψήφιος'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ (Χ>=1000) ΚΑΙ (Χ<=9999)
Ψ1 <-- Χ DIV 1000
υπόλοιπο <-- Χ MOD 1000
Ψ2 <-- υπόλοιπο DIV 100
υπόλοιπο <-- υπόλοιπο MOD 100
Ψ3 <-- υπόλοιπο DIV 10
Ψ4 <-- υπόλοιπο MOD 10
ΓΡΑΨΕ 'Τα ψηφία του αριθμού είναι: ', Ψ1, '-', Ψ2, '-', Ψ3, '-', Ψ4
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Απομόνωση_ψηφίων