ΠΡΟΓΡΑΜΜΑ Απομόνωση_ψηφίων_κ_ευρεση_διαφορας
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: x, ψ1, ψ2, ψ3, υπόλοιπο, ω, γ
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε έναν θετικο τριψήφιο αριθμό:'
ΔΙΑΒΑΣΕ x
ΑΝ x<100 Ή x>999 ΤΟΤΕ
ΓΡΑΨΕ 'Ο αριθμός αυτός δεν είναι θετικος τριψήφιος'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ x>=100 ΚΑΙ x<=999
ψ1 <-- x DIV 100
υπόλοιπο <-- x MOD 100
ψ2 <-- υπόλοιπο DIV 10
ψ3 <-- υπόλοιπο MOD 10
ΓΡΑΨΕ 'Τα ψηφία του αριθμού είναι:', ψ1, ψ2, ψ3
ω <-- ψ3*100+ψ2*10+ψ1
γράψε 'Με αντιμεταθεση ψηφιων προκυπτει ο αριθμος:', ω
γ <-- Α_Τ(ω-x)
γράψε 'Η απολυτη τιμη της διαφορας τους ειναι: |',ω,'-',x,'| =', γ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Απομόνωση_ψηφίων_κ_ευρεση_διαφορας