ΠΡΟΓΡΑΜΜΑ ΔΙΑΧΩΡΙΣΜΟΣ
ΣΤΑΘΕΡΕΣ
ΜΕΓ = 10 ! ΜΕΓΙΣΤΟΣ ΑΡΙΘΜΟΣ ΕΠΙΤΡΕΠΟΜΕΝΩΝ ΨΗΦΙΩΝ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : ΠΙΝ[ΜΕΓ],Ν,Χ,Ι
ΑΡΧΗ
ΓΡΑΨΕ 'ΔΩΣΤΕ ΕΝΑΝ ΑΡΙΘΜΟ ΓΙΑ ΝΑ ΔΙΑΧΩΡΙΣΤΟΥΝ ΤΑ ΨΗΦΙΑ ΤΟΥ.'
ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ΝΑ ΕΙΝΑΙ ΤΟ ΠΟΛΥ ', ΜΕΓ, ' ΨΗΦΙΟΣ'
ΔΙΑΒΑΣΕ Ν
ΟΣΟ Ν > (10^ΜΕΓ - 1) ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'ΕΙΠΑΜΕ ΤΟ ΠΟΛΥ ', ΜΕΓ , 'ΨΗΦΙΟΣ'
ΔΙΑΒΑΣΕ Ν
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Ι <-- 10
Χ <-- ΜΕΓ
ΟΣΟ Χ > 0 ΕΠΑΝΑΛΑΒΕ
ΠΙΝ[Χ] <-- (Ν - (Ν DIV Ι)*Ι) DIV (Ι DIV 10) ! ΚΡΑΤΑΕΙ ΤΟ ΤΕΛΕΥΤΑΙΟ ΨΗΦΙΟ
Ι <-- Ι * 10
Χ <-- Χ - 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΜΕΓ
ΓΡΑΨΕ ΠΙΝ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ