Δομή επανάληψης - Άσκηση 2

Μία μεταφορική εταιρία θέλει να στείλει με αεροπλάνα 50 πακέτα. Κάθε πακέτο δεν μπορεί να ζυγίζει πάνω από 100 τόνους και κάθε πτήση δεν μπορεί να μεταφέρει πάνω από 100 τόνους. Τα πακέτα θα δίνονται ένα-ένα με την σειρά.

Να γραφεί πρόγραμμα που να διαβάζει το βάρος του κάθε πακέτου και θα εκτυπώνει με πόσο βάρος έφυγε η κάθε πτήση και τελικά με πόσες πτήσεις έφυγαν και τα 50 πακέτα.

ΛΥΣΗ

ΠΡΟΓΡΑΜΜΑ ΜΕΤΑΦΟΡΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Β_ΠΑΚΕΤΟΥ,Σ
  ΑΚΕΡΑΙΕΣ: Ι,ΠΤΗΣΕΙΣ
ΑΡΧΗ
  ΠΤΗΣΕΙΣ ← 0
  Σ ← 0
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 50
    ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ ΒΑΡΟΣ ΤΟΥ ΠΑΚΕΤΟΥ'
    ΔΙΑΒΑΣΕ Β_ΠΑΚΕΤΟΥ
    Σ ← Σ+Β_ΠΑΚΕΤΟΥ
    ΑΝ Σ=100 ΤΟΤΕ
      ΠΤΗΣΕΙΣ ← ΠΤΗΣΕΙΣ+1
      ΓΡΑΨΕ 'Η ΠΤΗΣΗ ΝΟΥΜΕΡΟ ',ΠΤΗΣΕΙΣ,' ΜΕΤΕΦΕΡΕ ',Σ,' ΒΑΡΟΣ'
      Σ ← 0
    ΑΛΛΙΩΣ_ΑΝ Σ > 100 ΤΟΤΕ
      Σ ← Σ-Β_ΠΑΚΕΤΟΥ
      ΠΤΗΣΕΙΣ ← ΠΤΗΣΕΙΣ+1
      ΓΡΑΨΕ 'Η ΠΤΗΣΗ ΝΟΥΜΕΡΟ ',ΠΤΗΣΕΙΣ,' ΜΕΤΕΦΕΡΕ ',Σ,' ΒΑΡΟΣ'
      Σ ← Β_ΠΑΚΕΤΟΥ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΑΝ ΤΟ ΤΕΛΕΥΤΑΙΟ ΠΑΚΕΤΟ ΕΚΑΝΕ ΤΟ Σ>100 ΤΟΤΕ ΘΑ ΤΟ ΣΤΕΙΛΟΥΜΕ ΜΕ ΤΗΝ ΕΠΟΜΕΝΗ ΠΤΗΣΗ
  ΑΝ Σ > 0 ΤΟΤΕ
    ΠΤΗΣΕΙΣ ← ΠΤΗΣΕΙΣ+1
    ΓΡΑΨΕ 'Η ΠΤΗΣΗ ΝΟΥΜΕΡΟ ',ΠΤΗΣΕΙΣ,' ΜΕΤΕΦΕΡΕ ',Σ,' ΒΑΡΟΣ'
  ΤΕΛΟΣ_ΑΝ
  ΓΡΑΨΕ 'ΤΑ ΠΑΚΕΤΑ ΕΦΥΓΑΝ ΜΕ ',ΠΤΗΣΕΙΣ,' ΠΤΗΣΕΙΣ'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ