!===========================================
! netnick
!===========================================
! Ελέγχει εάν ο αριθμός που διαβάζεται έχει τα ψηφία του
! σε φθίνουσα σειρά πχ. 54321 (αποτέλεσμα ΑΛΗΘΗΣ = TRUE )
! ή όχι, πχ 1111, 1234, 54323 (αποτέλεσμα ΨΕΥΔΗΣ = FALSE)
ΠΡΟΓΡΑΜΜΑ digits1
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: number,d1,d2
ΛΟΓΙΚΕΣ: ισχύει
ΑΡΧΗ
ΓΡΑΨΕ 'ΔΩΣΕ ΑΡΙΘΜΟ ΓΙΑ ΕΛΕΓΧΟ: '
ΔΙΑΒΑΣΕ number
ισχύει <-- ΑΛΗΘΗΣ
d1 <-- number MOD 10
number <-- number DIV 10
ΟΣΟ ((number <> 0) ΚΑΙ (ισχύει = ΑΛΗΘΗΣ)) ΕΠΑΝΑΛΑΒΕ
d2 <-- number MOD 10
number <-- number DIV 10
ΑΝ d1 >= d2 ΤΟΤΕ
ισχύει <-- ΨΕΥΔΗΣ
ΑΛΛΙΩΣ
d1 <-- d2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ισχύει ΤΟΤΕ
ΓΡΑΨΕ ' Ο ΑΡΙΘΜΟΣ ΕΧΕΙ ΤΑ ΨΗΦΙΑ ΤΟΥ ΣΕ ΦΘΙΝΟΥΣΑ ΣΕΙΡΑ'
ΑΛΛΙΩΣ
ΓΡΑΨΕ ' Ο ΑΡΙΘΜΟΣ ΔΕΝ ΕΧΕΙ ΤΑ ΨΗΦΙΑ ΤΟΥ ΣΕ ΦΘΙΝΟΥΣΑ ΣΕΙΡΑ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ