! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΙΟΥΛΙΟΣ 2003 - ΘΕΜΑ 2
! ===============================================================================================
! Δίνεται ο παρακάτω αλγόριθμος :
!
!   Αλγόριθμος Αριθμοί
!    Διάβασε Α
!    Εκτύπωσε Α
!    S <-- 1
!    K <-- 2                  
!    Αρχή_επανάληψης
!      Αν Α MOD K = 0 τότε
!         Β <-- Α DIV K
!         Αν Κ <> Β τότε
!            S <-- S + K + B                        
!            Εκτύπωσε Κ, Β
!         Αλλιώς
!            S <-- S + K
!            Εκτύπωσε Κ
!         Τέλος_αν
!      Τέλος_αν
!      Κ <-- Κ + 1
!    Μέχρις_ότου Κ > Ρίζα (Α)
!    Αν Α = S τότε
!       Εκτύπωσε S
!    Τέλος_αν
!   Τέλος Αριθμοί
!
! Η συνάρτηση Ρίζα (Α) επιστρέφει την τετραγωνική ρίζα του Α.
!
! Να γράψετε στο τετράδιό σας τις τιμές που τυπώνει ο παραπάνω αλγόριθμος, αν του δώσουμε τιμές
! εισόδου :   α. 36  και   β. 28
! ===============================================================================================

ΠΡΟΓΡΑΜΜΑ ΗΜ_2003_07_2
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: A,S,K,B
ΑΡΧΗ
  ΔΙΑΒΑΣΕ A                    
  ΓΡΑΨΕ A
  S <-- 1
  K <-- 2
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ A MOD K = 0 ΤΟΤΕ
      B <-- A DIV K
      ΑΝ K <> B ΤΟΤΕ
        S <-- S + K  + B
        ΓΡΑΨΕ K , B
      ΑΛΛΙΩΣ
        S <-- S + K
        ΓΡΑΨΕ K
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
    K <-- K + 1
  ΜΕΧΡΙΣ_ΟΤΟΥ K > Τ_Ρ(A)
  ΑΝ A = S ΤΟΤΕ
    ΓΡΑΨΕ S
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ