ΠΡΟΓΡΑΜΜΑ ανωμαλο_γινομενο ΣΤΑΘΕΡΕΣ β = 20 !ΘΕΣΕΙΣ ΤΟΥ ΠΙΝΑΚΑ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, πινακ[β], κ, μαχ_γινομενο ΑΡΧΗ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ β ΔΙΑΒΑΣΕ πινακ[ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ μαχ_γινομενο <- 1 ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 5 μαχ_γινομενο <- μαχ_γινομενο*πινακ[ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ ι ΑΠΟ 0 ΜΕΧΡΙ (Α_Μ(β^5) - 1) κ <- ι ΚΑΛΕΣΕ δεκαδικο_σε_Νδικο( κ, πινακ, μαχ_γινομενο) ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ "το μεγιστο γινομενο ειναι ", μαχ_γινομενο ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΔΙΑΔΙΚΑΣΙΑ δεκαδικο_σε_Νδικο( αριθμο, πινακ, μαχ_γινομενο) ΣΤΑΘΕΡΕΣ β = 20!ΘΕΣΕΙΣ ΤΟΥ ΠΙΝΑΚΑ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ξ, ι, Α[5], υπολοιπο, πηλικο, αριθμο, γνμν, πινακ[β], μαχ_γινομενο ΛΟΓΙΚΕΣ: συνθ ΑΡΧΗ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 5 Α[ι] <- 1 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ πηλικο <- 1 ι <- 0 ΟΣΟ πηλικο <> 0 ΕΠΑΝΑΛΑΒΕ υπολοιπο <- αριθμο mod β αριθμο <- αριθμο div β πηλικο <- αριθμο Α[5 - ι] <- υπολοιπο + 1 ι <- ι + 1 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ γνμν <- 1 συνθ <- ΑΛΗΘΗΣ ι <- 1 ΟΣΟ ι <= 5 ΚΑΙ συνθ = ΑΛΗΘΗΣ ΕΠΑΝΑΛΑΒΕ ξ <- ι + 1 ΟΣΟ ξ <= 5 ΚΑΙ συνθ = ΑΛΗΘΗΣ ΕΠΑΝΑΛΑΒΕ ΑΝ Α[ι] = Α[ξ] ΤΟΤΕ συνθ <- ΨΕΥΔΗΣ ΤΕΛΟΣ_ΑΝ ξ <- ξ + 1 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ι <- ι + 1 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ συνθ = ΑΛΗΘΗΣ ΤΟΤΕ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 5 γνμν <- γνμν* πινακ[Α[ι]] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ γνμν > μαχ_γινομενο ΤΟΤΕ μαχ_γινομενο <- γνμν ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ