Νέοπας στο forum, ολίγον τι ψαρωμένος, αλλά νομίζω πως ο κώδικάς μου είναι σωστός. Ορίστε:
ΠΡΟΓΡΑΜΜΑ Τιμή_Σύνθετης_Παράστασης
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ν, i
ΠΡΑΓΜΑΤΙΚΕΣ: ΤΣΠ
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε έναν ακέραιο αριθμό μεγαλύτερο του μηδενός'
ΔΙΑΒΑΣΕ Ν
ΤΣΠ <-- 1
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
ΑΝ (i=2) Ή (i MOD 2=0) ΤΟΤΕ
ΤΣΠ <-- ΤΣΠ+i
ΑΛΛΙΩΣ
ΤΣΠ <-- ΤΣΠ/i
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Η τιμή της σύνθετης παράστασης είναι:', ΤΣΠ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Τιμή_Σύνθετης_Παράστασης
Είναι αυτονόητο πως περιμένω σχόλια αν κάτι είναι λάθος!
Υ.Γ: Δε θα μπορούσα στο πρώτο μου post να μην ευχόμουν καλή επιτυχία σε όλους εμάς που δίνουμε Πανελλήνιες Εξετάσεις φέτος! Υπομονή παιδιά...φάγαμε το γάιδαρο και μας μένει η ουρά (όπως λέει μια συγγενής μου κάθε φορά που με βλέπει και που προφανώς δε ξέρει τι σημαίνει...ουρά Πανελληνίων!
)