ΠΡΟΓΡΑΜΜΑ Κατοπτρικοί ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: αρ, προσωρ, προσωρ2, ψ, ψηφία, ι ΠΡΑΓΜΑΤΙΚΕΣ: αρ2 ΑΡΧΗ ΓΡΑΨΕ "Δώσε τον αριθμό που θα ελέγξω: " ΔΙΑΒΑΣΕ αρ προσωρ <- αρ προσωρ2 <- αρ ψηφία <- 0 ΟΣΟ προσωρ > 0 ΕΠΑΝΑΛΑΒΕ ψηφία <- ψηφία + 1 προσωρ <- προσωρ DIV 10 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ αρ2 <- 0 ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ ψηφία ψ <- προσωρ2 MOD 10 αρ2 <- αρ2 + ψ*10^(ψηφία - ι) προσωρ2 <- προσωρ2 DIV 10 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ Α_Μ(αρ2) = αρ ΤΟΤΕ ΓΡΑΨΕ "Ο ", αρ, " ΕΙΝΑΙ καρκινικός." ΑΛΛΙΩΣ ΓΡΑΨΕ "Ο ", αρ, " ΔΕΝ ΕΙΝΑΙ καρκινικός." ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Κατοπτρικοί