! ===============================================================================================
! ΕΣΠΕΡΙΝΟ - ΙΟΥΛΙΟΣ 2005 - ΘΕΜΑ 2
! ===============================================================================================
! Να αναπτύξετε έναν αλγόριθμο, ώστε :
! α) να διαβάζει έναν πραγματικό αριθμό μεγαλύτερο του μηδενός και μικρότερο του 1000 και
! να κάνει έλεγχο ορθής καταχώρησης του αριθμού,
! β) να ελέγχει αν είναι ακέραιος και να εμφανίζει τη λέξη "ΑΚΕΡΑΙΟΣ" αλλιώς
! να εμφανίζει τη λέξη "ΠΡΑΓΜΑΤΙΚΟΣ",
! γ) να ελέγχει, στην περίπτωση που ο αριθμός είναι ακέραιος, αν είναι άρτιος ή περιττός και
! να εμφανίζει τη λέξη "ΑΡΤΙΟΣ" ή "ΠΕΡΙΤΤΟΣ" αντίστοιχα.
! ===============================================================================================
ΠΡΟΓΡΑΜΜΑ ΕΣ_2005_07_2
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : x
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε έναν πραγματικό αριθμό μεγαλύτερο του μηδενός και μικρότερο του 1000.'
ΔΙΑΒΑΣΕ x
ΟΣΟ x <= 0 ή x >= 1000 ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Λάθος. Ξαναδώσε.'
ΔΙΑΒΑΣΕ x
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ x = Α_Μ(x) ΤΟΤΕ
ΓΡΑΨΕ 'ΑΚΕΡΑΙΟΣ'
ΑΝ Α_Μ(x) MOD 2 = 0 ΤΟΤΕ
ΓΡΑΨΕ 'ΑΡΤΙΟΣ'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'ΠΕΡΙΤΤΟΣ'
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'ΠΡΑΓΜΑΤΙΚΟΣ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ