Μετά το διάβασμα ενός αριθμού (<>0, τερματισμός με 0)να εμφανίζει το μήνυμα «ΘΕΤΙΚΟΣ» ή «ΑΡΝΗΤΙΚΟΣ» αν ο αριθμός είναι θετικός ή αρνητικός.

αρχή

ΠΡΟΓΡΑΜΜΑ ΑΡΙΘΜΟΣ_while_oso

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ΑΡΙΘΜΟΣ

ΑΡΧΗ

  ΓΡΑΨΕ      ('δώσε αριθμό  : ')

  ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ

  ΟΣΟ  ΑΡΙΘΜΟΣ = 0 ΕΠΑΝΑΛΑΒΕ

    ΓΡΑΨΕ      ('δώσε αριθμό  : ')

    ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ

    ΑΝ ΑΡΙΘΜΟΣ > 0 ΤΟΤΕ

      ΓΡΑΨΕ ('ΘΕΤΙΚΟΣ ')

    ΤΕΛΟΣ_ΑΝ

    ΑΝ ΑΡΙΘΜΟΣ < 0   ΤΟΤΕ

      ΓΡΑΨΕ ('ΑΡΝΗΤΙΚΟΣ')

    ΤΕΛΟΣ_ΑΝ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

1. ΔΥΝΑΤΟΤΗΤΑ ακριβούς ΔΙΑΙΡΕΣΗΣ

αρχή

ΠΡΟΓΡΑΜΜΑ MODI1

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ:A,B

ΑΡΧΗ

  ΔΙΑΒΑΣΕ A

  B <-- A MOD 2

  ΑΝ  B=0  ΤΟΤΕ

    ΓΡΑΨΕ 'NAI'

  ΑΛΛΙΩΣ

    ΓΡΑΨΕ 'OXI'

  ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

2. ΔΥΝΑΤΟΤΗΤΑ ακριβούς ΔΙΑΙΡΕΣΗΣ Α δια Β

αρχή

ΠΡΟΓΡΑΜΜΑ MODI2

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ:A,B,C

ΑΡΧΗ

  ΓΡΑΨΕ 'ΔΥΝΑΤΟΤΗΤΑ ΔΙΑΙΡΕΣΗΣ'

  ΓΡΑΨΕ 'ΔΩΣΕ ΑΡΙΘΜΟ Α'

  ΔΙΑΒΑΣΕ A

  ΓΡΑΨΕ 'ΔΩΣΕ ΑΡΙΘΜΟ Β'

  ΔΙΑΒΑΣΕ  Β

  C <-- A MOD B

  ΑΝ  C=0  ΤΟΤΕ

    ΓΡΑΨΕ A,' ΔΙΑΙΡΕΙΤΕ ΔΙΑ ΤΟΥ ',B, 'ΑΚΡΙΒΩΣ'

  ΑΛΛΙΩΣ

    ΓΡΑΨΕ A,' ΔΕΝ ΔΙΑΙΡΕΙΤΑΙ ΔΙΑ ΤΟΥ ' ,B, 'ΑΚΡΙΒΩΣ'     

  ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

3. Μετά το διάβασμα ενός αριθμού να εμφανιστεί το μήνυμα «ΠΕΡΙΤΟΣ» ή «ΑΡΤΙΟΣ»

αρχή

ΠΡΟΓΡΑΜΜΑ  PERITOS_ARTIOS

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ:AR

ΑΡΧΗ

  ΓΡΑΨΕ 'Dose ARITHMO: '

  ΔΙΑΒΑΣΕ AR

ΑΝ ((AR MOD 2)=0) ΤΟΤΕ ΓΡΑΨΕ'ΑΡΙΘΜΟΣ',AR,'  PERITOS'

  ΑΛΛΙΩΣ        ΓΡΑΨΕ 'ΑΡΙΘΜΟΣ  ', AR , '  ARTIOS'

  ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

4. Μετά το διάβασμα ενός αριθμού να εμφανιστεί το μήνυμα «ΠΕΡΙΤΟΣ» ή «ΑΡΤΙΟΣ»

αρχή

ΠΡΟΓΡΑΜΜΑ  PERITOS_ARTIOS

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ:AR

ΑΡΧΗ

  ΓΡΑΨΕ 'Dose ARITHMO: '

  ΔΙΑΒΑΣΕ AR

  ΑΝ   ((AR MOD 2)=0)     ΤΟΤΕ        ΓΡΑΨΕ 'ΑΡΙΘΜΟΣ  ', AR , '  PERITOS'

  ΑΛΛΙΩΣ        ΓΡΑΨΕ 'ΑΡΙΘΜΟΣ  ', AR , '  ARTIOS'

  ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

5. Υπολογισμός δίσεκτου έτους – χρήση MOD.

αρχή

ΠΡΟΓΡΑΜΜΑ ΔΙΣΕΚΤΟ

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: x

ΑΡΧΗ

  ΓΡΑΨΕ 'Δώσε μια χρονολογία.'

  ΔΙΑΒΑΣΕ x

  ΑΝ ((x MOD 4 = 0) ΚΑΙ (x MOD 100 <> 0)) Η (x MOD 400 = 0) ΤΟΤΕ

    ΓΡΑΨΕ 'Το έτος ' , x , ' είναι δίσεκτο.'

  ΑΛΛΙΩΣ

    ΓΡΑΨΕ 'Το έτος ' , x , ' δεν είναι δίσκετο.'

  ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΔΙΣΕΚΤΟ