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