Κώδικας:
ΠΡΟΓΡΑΜΜΑ Ευρεση_Πρωτων_αριθμων
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ναμ, σαμ, ι
ΑΡΧΗ
ΔΙΑΒΑΣΕ ναμ
ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ ναμ-1 ΜΕ ΒΗΜΑ 1
σαμ <-- ναμ MOD ι
ΑΝ σαμ = 0 ΤΟΤΕ
ΓΡΑΨΕ 'Ο αριθμός',ναμ,'δεν είναι πρώτος. Μπορεί να διαιρεθεί με το',ι
ΑΛΛΙΩΣ_ΑΝ σαμ <> 0 ΤΟΤΕ
ΓΡΑΨΕ 'Ο αριθμός',ναμ,'είναι πρώτος!'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
i dikia mou ekdoxi evrisis prwtwn arithmwn. vevaia den einai teleiomenos dld dexetai kai arnitikous arithmous alla variemai na to grapsw lol
. tha ithela an kserei kapoios pos borw na termatisw proora ton vronxo gia dld kati san to break; stin c#, c++ klp. thanks