ΠΡΟΓΡΑΜΜΑ  invert
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:x,N,κ,w,i,d,k,λ,p
ΠΡΑΓΜΑΤΙΚΕΣ:z
ΛΟΓΙΚΕΣ:Έξοδος
ΑΡΧΗ
ΓΡΑΨΕ  " Δώστε τον αριθμό : "
Διάβασε x
ΓΡΑΨΕ
! Υπολογισμός του πλήθους των ψηφίων του αριθμού
N ← 1
κ ← 10
Έξοδος ← Ψευδής
Όσο Έξοδος = Ψευδής επανάλαβε
  Αν (x div κ) ≠ 0 τότε
    N ← N + 1
    κ ← κ*10
  αλλιώς
    Έξοδος ← Αληθής
  Τέλος_αν
Τέλος_επανάληψης
! Υπολογισμός του ανίστροφου του αριθμού
w ← x ! Αποθηκεύουμε τον αριθμό που μας δόθηκε
z ← 0 ! Ο αντίστροφος αριθμός
k ← 0 ! Εκθέτης
λ ← 1 ! Εκθέτης - Δείκτης ψηφίων 0 μέσα στον αριθμό x. (π.χ 12000786)
Για i από 1 μέχρι N ! Από το 1ο μέχρι το Ν ψηφίο του αριθμού x
  d ← N - i ! Εκθέτης - Δείχνει σε ποιο ψηφίο είμαστε. Ξεκινάμε αντίστροφα
  p ← x div Α_Μ(10^ d) ! Το πηλίκο της διαίρεσης
  Αν p > 0 και x > 0 τότε! Όσο υπάρχει πηλίκο,υπάρχουν ακόμη ψηφία.Αν x=0,τελειώσαμε.
    z ← z + p*10^k ! Εδώ σχηματίζεται ο αντίστροφος αριθμός z
    k ← k + 1 ! Πάμε στην επόμενη δύναμη στον x
    x ← x mod Α_Μ(10^d) ! Στον x αποθηκεύεται το υπόλοιπο κάθε φορά
    Αν d ≥ 1 τότε
      λ ← d - 1 ! Αρχικοποίηση του λ για έλεγχο ψηφίων 0 μέσα στον x
    ΤΕΛΟΣ_ΑΝ
    Όσο x div Α_Μ(10^λ) = 0 και λ > 0 επανάλαβε ! Έλεγχος αν το ψηφίο είναι 0
      k ← k + 1 ! Πάμε στην επόμενη δύναμη για τον z
      λ ← λ - 1 ! Πάμε σε μικρότερη δύναμη στον x
    Τέλος_επανάληψης
  Τέλος_αν
  Αν x = 0 τότε
    i ← N ! Αν o x είναι 0, διακόπτουμε την επανάληψη.
  ΤΕΛΟΣ_ΑΝ
Τέλος_επανάληψης
ΓΡΑΨΕ
ΓΡΑΨΕ  " Ο αντίστροφος αριθμός του ", w, " είναι ο : ", Α_Μ(z) ! Εκτύπωση του αντίστροφου αριθμού
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ