! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΙΟΥΛΙΟΣ 2004 - ΘΕΜΑ 2
! ===============================================================================================
! Δίνεται ο παρακάτω αλγόριθμος :
!
! Αλγόριθμος Αριθμοί_ΜΕΡΣΕΝ
! ΔΙΑΒΑΣΕ a
! b <-- 4
! c <-- 2
! ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
! b <-- b^2-2
! ΓΡΑΨΕ b
! c <-- c + 1
! ΜΕΧΡΙΣ_ΟΤΟΥ c > a-1
! d <-- 2^a-1
! e <-- b - Α_Μ(b/d)*d
! ΓΡΑΨΕ d
! ΑΝ e = 0 ΤΟΤΕ
! f <-- 2^(c-1)*d
! ΓΡΑΨΕ 'TELEIOS ARIUMOS : ',f
! g <-- 0
! ΟΣΟ f>0 ΕΠΑΝΑΛΑΒΕ
! g <-- G +1
! f <-- Α_Μ(f/10)
! ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ΓΡΑΨΕ g
! ΤΕΛΟΣ_ΑΝ
! Τέλος Αριθμοί_ΜΕΡΣΕΝ
!
! Να γράψετε στο τετράδιο σας τις τιμές που τυπώνει ο παραπάνω αλγόριθμος, αν του δώσουμε τιμές
! εισόδου : α. 3 και β. 4
!
! ===============================================================================================
ΠΡΟΓΡΑΜΜΑ ΗΜ_2004_07_2
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: a,b,c,d,f,g,e
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε την τιμή του Α'
ΔΙΑΒΑΣΕ a
b <-- 4
c <-- 2
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
b <-- b^2-2
ΓΡΑΨΕ b
c <-- c + 1
ΜΕΧΡΙΣ_ΟΤΟΥ c > a-1
d <-- 2^a-1
e <-- b - Α_Μ(b/d)*d
ΓΡΑΨΕ d
ΑΝ e = 0 ΤΟΤΕ
f <-- 2^(c-1)*d
ΓΡΑΨΕ 'Τέλειος αριθμός : ',f
g <-- 0
ΟΣΟ f>0 ΕΠΑΝΑΛΑΒΕ
g <-- G +1
f <-- Α_Μ(f/10)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ g
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ