ΠΡΟΓΡΑΜΜΑ Κατοπτρικοί2 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: αρ, προσωρ, προσωρ2, ψ, ψηφία, ι ΠΡΑΓΜΑΤΙΚΕΣ: αρ2 ΑΡΧΗ ΓΙΑ αρ ΑΠΟ 10000 ΜΕΧΡΙ 999999 προσωρ <- αρ προσωρ2 <- αρ ψηφία <- 0 ΟΣΟ προσωρ > 0 ΕΠΑΝΑΛΑΒΕ ψηφία <- ψηφία + 1 προσωρ <- προσωρ DIV 10 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ αρ2 <- 0 ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ ψηφία ψ <- προσωρ2 MOD 10 αρ2 <- αρ2 + ψ*10^(ψηφία - ι) προσωρ2 <- προσωρ2 DIV 10 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ Α_Μ(αρ2) = αρ ΤΟΤΕ ΓΡΑΨΕ αρ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Κατοπτρικοί2