Κάτι τέτοιο δεν θα ήταν πιο απλό????
Το Ι μετρά ψηφία (αρχικά 0)
Με το Χ <-- Χ DIV 10 "Κόβω" το τελευταίο ψηφίο και κρατώ τα υπόλοιπα
Με την αύξηση του Ι καταμετρώ αυτό που μόλις "έκοψα"
Αυτό θα συμβαίνει μέχρι το Χ να γίνει 0
! ΤΟ ΠΡΟΓΡΑΜΜΑ ΥΠΟΛΟΓΙΖΕΙ ΤΟ ΠΛΗΘΟΣ ΤΩΝ ΨΗΦΙΩΝ ΕΝΟΣ
!ΑΚΕΡΑΙΟΥ ΑΡΙΘΜΟΥ
ΠΡΟΓΡΑΜΜΑ ΠΛΗΘΟΣ_ΨΗΦΙΩΝ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ι,Χ
ΑΡΧΗ
ΓΡΑΨΕ 'ΔΩΣΕ ΜΟΥ ΕΝΑΝ ΑΚΕΡΑΙΟ ΑΡΙΘΜΟ: '
ΔΙΑΒΑΣΕ Χ
Ι <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
Χ <-- Χ DIV 10
Ι <-- Ι+1
ΜΕΧΡΙΣ_ΟΤΟΥ Χ=0
ΓΡΑΨΕ ' Ο ΑΡΙΘΜΟΣ ΕΧΕΙ ',Ι,' ΨΗΦΙΑ'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ