ΠΡΟΓΡΑΜΜΑ τετράδυμοι
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: n,ρ,θ,κ5,κ6,κ7,κ8,κ
ΧΑΡΑΚΤΗΡΕΣ: ξανα
ΛΟΓΙΚΕΣ: πρωτος
ΑΡΧΗ
κ5 <-- 0
ξανα <-- 'ν'
ΟΣΟ ξανα='ν' ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Δώσε μέγιστο όριο τετραγινόμενου'
ΔΙΑΒΑΣΕ n
ΑΝ n >= 46189 ΤΟΤΕ
ρ <-- Α_Μ(Τ_Ρ(Τ_Ρ(n)))
ρ <-- ρ DIV 10
ρ <-- ρ*10
κ5 <-- ρ+11
κ6 <-- ρ+13
κ7 <-- ρ+17
κ8 <-- ρ+19
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
κ5 <-- κ5-10
κ6 <-- κ6-10
κ7 <-- κ7-10
κ8 <-- κ8-10
θ <-- κ5*κ6*κ7*κ8
ΜΕΧΡΙΣ_ΟΤΟΥ θ<=n ΚΑΙ κ5 MOD 3 <>0 ΚΑΙ κ5 MOD 7 <>0 ΚΑΙ κ6 MOD 3 <>0 ΚΑΙ κ6 MOD 7 <>0 ΚΑΙ κ7 MOD 3 <>0 ΚΑΙ κ7 MOD 7 <>0 ΚΑΙ κ8 MOD 3 <>0 ΚΑΙ κ8 MOD 7 <>0 Η κ5<0
κ <-- 3
ΟΣΟ κ <= Α_Μ(Τ_Ρ(κ5)) ΕΠΑΝΑΛΑΒΕ
ΑΝ κ5 MOD κ <> 0 ΤΟΤΕ
πρωτος <-- ΑΛΗΘΗΣ
κ <-- κ+2
ΑΛΛΙΩΣ
κ <-- κ5
πρωτος <-- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ πρωτος ΤΟΤΕ
κ <-- 5
ΟΣΟ κ <= Α_Μ(Τ_Ρ(κ6)) ΕΠΑΝΑΛΑΒΕ
ΑΝ κ6 MOD κ <> 0 ΤΟΤΕ
πρωτος <-- ΑΛΗΘΗΣ
κ <-- κ+2
ΑΛΛΙΩΣ
κ <-- κ6
πρωτος <-- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ πρωτος ΤΟΤΕ
κ <-- 5
ΟΣΟ κ <= Α_Μ(Τ_Ρ(κ7)) ΕΠΑΝΑΛΑΒΕ
ΑΝ κ7 MOD κ <> 0 ΤΟΤΕ
πρωτος <-- ΑΛΗΘΗΣ
κ <-- κ+2
ΑΛΛΙΩΣ
κ <-- κ7
πρωτος <-- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ πρωτος ΤΟΤΕ
κ <-- 5
ΟΣΟ κ <= Α_Μ(Τ_Ρ(κ8)) ΕΠΑΝΑΛΑΒΕ
ΑΝ κ8 MOD κ <> 0 ΤΟΤΕ
πρωτος <-- ΑΛΗΘΗΣ
κ <-- κ+2
ΑΛΛΙΩΣ
κ <-- κ8
πρωτος <-- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ πρωτος
ΑΝ κ5>0 ΤΟΤΕ
ΓΡΑΨΕ 'Ο μέγιστος τετράδυμος είναι ο',θ,'που προκύπτει από τους εξής πρώτους:',κ5,κ6,κ7,κ8
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Δεν υπάρχει μικρότερος τετράδυμος'
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Θέλετε να συνεχίσετε; Πληκτρολογίστε ν για ναι ή ο για όχι'
ΔΙΑΒΑΣΕ ξανα
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Δεν υπάρχει μικρότερος τετράδυμος'
ΓΡΑΨΕ 'Θέλετε να συνεχίσετε; Πληκτρολογίστε ν για ναι ή ο για όχι'
ΔΙΑΒΑΣΕ ξανα
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ τετράδυμοι