! =========================================================================================
! ΕΣΠΕΡΙΝΟ - ΙΟΥΝΙΟΣ 2000 - ΘΕΜΑ 3Β
! Να αναπτύξετε αλγόριθμο που να διαβάζει από το πληκτρολόγιο 100 ακεραίους αριθμούς,
! να υπολογίζει το γινόμενο τους και να το εμφανίζει.
! =========================================================================================
ΠΡΟΓΡΑΜΜΑ ES_2000_06_3Β
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : p , i , a
ΑΡΧΗ
p <-- 1
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
ΓΡΑΨΕ 'Δώσε ακέραιο αριθμό No : ',i
ΔΙΑΒΑΣΕ a
p <-- p * a
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Το γινόμενο των αριθμών που δόθηκαν είναι :' , p
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Σύνδεση 
Εγγραφή
Συχνές Ερωτήσεις
Αναζήτηση
