Τετάρτη 26 Δεκεμβρίου 2012

Μία διόρθωση στην άσκηση 18, σελ. 114: (λείπει ένα Τέλος_αν)


Αλγόριθμος Αριθμοί_ΜΕΡΣΕΝ
Διάβασε Α
Β ← 4
C ←  2
Aρχή_επανάληψης
Β ← (Β^2) - 2
Εμφάνισε Β
C ←  C + 1
Μέχρις_ότου C > (A - 1)
D ← (2^A) - 1
E ← B MOD D
Εμφάνισε D
Αν E = 0 τότε
F ← (2^(C - 1)) * D
Εμφάνισε "Τέλειος αριθμός:", F
G ←  0
Όσο F > 0 επανάλαβε
G ← G + 1
F ← F DIV 10
Τέλος_επανάληψης
Εμφάνισε G
Τέλος_αν
Τέλος Αριθμοί_ΜΕΡΣΕΝ

1 σχόλιο: