ΜΙΑ ΑΣΚΗΣΗ ΓΙΑ ΤΟ "ΠΙΟ ΚΟΝΤΑ"

Να αναπτυχθεί πρόγραμμα που θα διαβάζει μια ομάδα διψήφιων αριθμών και θα εκτυπώνει ποιος αριθμός ήταν πιο κοντά στο 50 καθώς επίσης και το πλήθος των αριθμών που εισήχθησαν. Η επανάληψη πρέπει να τερματίζεται όταν εισαχθεί ο αριθμός 0. Σημείωση: στην περίπτωση που υπάρχουν δυο αριθμοί πλησιέστεροι στο 50 (ο ένας μεγαλύτερος και ο άλλος μικρότερος), πρέπει να εκτυπώνεται ο μικρότερος.

Λύση

ΠΡΟΓΡΑΜΜΑ Αριθμοί ΜΕΤΑΒΛΗΤΕΣ   ΑΚΕΡΑΙΕΣ: πλήθος, αριθμός, αριθμός_πιο_κοντά ΑΡΧΗ   αριθμός_πιο_κοντά <- 100  ! μια αρχική τιμή που θα αλλάξει στη συνέχεια   πλήθος <- 0   ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ      ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ         ΔΙΑΒΑΣΕ αριθμός      ΜΕΧΡΙΣ_ΟΤΟΥ (αριθμός = 0) Η (αριθμός >= 10 ΚΑΙ αριθμός <= 99)      ΑΝ (αριθμός >= 10 ΚΑΙ αριθμός <= 99) ΤΟΤΕ  ! αριθμός <> 0         ΑΝ  Α_Τ (αριθμός – 50) < Α_Τ (αριθμός_πιο_κοντά – 50) ΤΟΤΕ            αριθμός_πιο_κοντά <- αριθμός         ΑΛΛΙΩΣ_ΑΝ  Α_Τ (αριθμός – 50) = Α_Τ (αριθμός_πιο_κοντά – 50) ΤΟΤΕ            ΑΝ  (αριθμός < 50) ΤΟΤΕ               αριθμός_πιο_κοντά <- αριθμός            ΤΕΛΟΣ_ΑΝ         ΤΕΛΟΣ_ΑΝ         πλήθος <- πλήθος + 1      ΤΕΛΟΣ_ΑΝ   ΜΕΧΡΙΣ_ΟΤΟΥ (αριθμός = 0)   ΑΝ  (πλήθος = 0) ΤΟΤΕ      ΓΡΑΨΕ 'Δε δόθηκε κανείς αριθμός'   ΑΛΛΙΩΣ      ΓΡΑΨΕ 'Το πλήθος των αριθμών είναι ', πλήθος      ΓΡΑΨΕ 'Ο πλησιέστερος στο 50 αριθμός είναι ', αριθμός_πιο_κοντά   ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Αριθμοί