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