ΠΡΟΓΡΑΜΜΑ γκόλντμπαχ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: α, γ, ι, κ, χ, ψ, ξ, ω, πρώτος[2000]
ΑΡΧΗ
γ <- 0
κ <- 1
ξ <- 1
ω <- 1
ΓΡΑΨΕ 'Δώσε μου έναν άρτιο αριθμό μικρότερο του 2000 και εγώ θα τον γράψω σαν άθροισμα δύο πρώτων...'
ΔΙΑΒΑΣΕ α
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ α
γ <- πληθοςδιαιρετων(ι)
ΑΝ γ = 1 ΤΟΤΕ
πρώτος[κ] <- ι
κ <- κ + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ κ - 1
ΓΙΑ ω ΑΠΟ ξ ΜΕΧΡΙ κ - 1
ΑΝ (πρώτος[ξ] + πρώτος[ω] = α) ΤΟΤΕ
ΓΡΑΨΕ πρώτος[ξ], '+', πρώτος[ω], '=', α
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ πληθοςδιαιρετων(α): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: α, β, γ
ΑΡΧΗ
γ <- 0
ΓΙΑ β ΑΠΟ 1 ΜΕΧΡΙ α - 1
ΑΝ α mod β = 0 ΤΟΤΕ
γ <- γ + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
πληθοςδιαιρετων <- γ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ