ΠΡΟΓΡΑΜΜΑ μετατροπη01
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:ι,αρ,Ψ[8],σ
ΧΑΡΑΚΤΗΡΕΣ:απ
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'δωσε εναν αριθμο απο το 0 μέχρι το 255'
ΔΙΑΒΑΣΕ αρ
ΜΕΧΡΙΣ_ΟΤΟΥ αρ>=0 και αρ<=255
σ <-- 0
ΓΙΑ ι απο 7 μέχρι 0 ΜΕ ΒΗΜΑ -1
ΑΝ αρ>=2^ι και αρ-σ>=2^ι τότε
Ψ[ι+1] <-- 1
σ <-- σ+2^ι
ΑΛΛΙΩΣ
Ψ[ι+1] <-- 0
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ Ψ[8],Ψ[7],Ψ[6],Ψ[5],Ψ[4],Ψ[3],Ψ[2],Ψ[1]
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΞΑΝΑ?(ναι η οχι)'
ΔΙΑΒΑΣΕ απ
ΜΕΧΡΙΣ_ΟΤΟΥ απ='ναι'η απ='οχι'
ΜΕΧΡΙΣ_ΟΤΟΥ απ='οχι'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ