Το μονο που εχω να πω ειναι,προσπαθησα.
ΠΡΟΓΡΑΜΜΑ ΖΩΡΙΚΟ_ΘΕΜΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι,Ξ,Ω1,Ω2,Λ1,Λ2,Δ1,Δ2
ΧΑΡΑΚΤΗΡΕΣ:ΠΚ[8,10],Π[8,10]
ΠΡΑΓΜΑΤΙΚΕΣ:ΣΥΝΟΛΟ,ΠΟΣΟ,ΑΠ[12,12],Χ
ΑΡΧΗ
ΣΥΝΟΛΟ <-- 4.5
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 12
ΓΙΑ Ξ ΑΠΟ 1 ΜΕΧΡΙ 12
ΓΡΑΨΕ 'ΔΩΣΕ ΤΗΝ ΑΠΟΔΟΣΗ ΑΝ Ο ΠΑΙΚΤΗΣ ΑΠΟ ΤΟΥΣ',Ξ,'ΑΡΙΘΜΟΣΥ ΠΕΤΥΧΕΙ ΤΟΥΣ',Ι
ΔΙΑΒΑΣΕ ΑΠ[Ι,Ξ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΔΩΣΕ ΤΗΝ ΩΡΑ ΠΟΥ ΥΠΟΒΛΗΘΗΚΕ ΤΟ ΔΕΛΤΙΟ'
ΔΙΑΒΑΣΕ Ω1
ΓΡΑΨΕ 'ΔΩΣΕ ΤΑ ΛΕΠΤΑ ΠΟΥ ΥΠΟΒΛΗΘΗΚΕ ΤΟ ΔΕΛΤΙΟ'
ΔΙΑΒΑΣΕ Λ2
ΓΡΑΨΕ 'ΔΩΣΕ ΤΑ ΔΕΥΤΕΡΟΛΕΠΤΑ ΠΟΥ ΥΠΟΒΛΗΘΗΚΕ ΤΟ ΔΕΛΤΙΟ'
ΔΙΑΒΑΣΕ Δ1
ΑΝ ΣΥΝΟΛΟ<>0 Ή Ω1<22 ΤΟΤΕ
ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ ΠΟΣΟ ΠΟΥ ΠΟΝΤΑΡΕ Ο ΜΙΛΤΟΣ'
ΔΙΑΒΑΣΕ ΠΟΣΟ
!12 ΑΡΙΘΜΟΙ ΠΟΥ ΕΒΑΛΕ Ο ΜΙΛΤΟΣ,ΜΕ ΤΗΝ ΠΡΟΥΠΟΘΕΣΗ ΟΤΙ ΒΑΖΕΙ ΜΟΝΟ 12 Χ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 8
ΓΙΑ Ξ ΑΠΟ 1 ΜΕΧΡΙ 10
ΔΙΑΒΑΣΕ Π[Ι,Ξ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!20 ΑΡΙΘΜΟΙ ΠΟΥ ΚΛΗΡΩΘΗΚΑΝ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 8
ΓΙΑ Ξ ΑΠΟ 1 ΜΕΧΡΙ 10
ΔΙΑΒΑΣΕ ΠΚ[Ι,Ξ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΥΠΟΛΟΓΙΖΩ ΤΗΝ ΩΡΑ ΜΕΧΡΙ ΤΗΝ ΕΠΟΜΕΝΗ ΚΛΗΡΩΣΗ
Δ2 <-- 0
Λ2 <-- Λ1+(5-Λ1 MOD 5)! ΣΥΜΠΛΗΡΩΝΩ ΤΑ ΛΕΠΤΑ ΜΕΧΡΙ 5,ΠΧ ΑΝ ΕΙΝΑΙ 3 ΘΑ ΓΙΝΟΥΝ 5?
ΑΝ Λ2=60 ΤΟΤΕ
Ω2 <-- Ω1+1
Λ2 <-- 0
ΑΛΛΙΩΣ
Ω2 <-- Ω1
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'ΟΧΡΟΝΟΣ ΠΟΥ ΜΕΣΟΛΑΒΕΙ ΜΕΤΑΞΗ ΤΗΣ ΥΠΟΒΟΛΗΣ ΤΟΥ ΔΕΛΤΙΟΥ ΚΑΙ ΤΗΣ ΕΝΑΡΞΗΣ ΤΗΣ ΕΠΟΜΕΝΗΣ ΚΛΗΡΩΣΗΣ ΕΙΝΑΙ=',ΔΙΑΦΟΡΑ_ΧΡΟΝΟΥ(Ω1,Λ1,Δ1,Ω2,Λ2,Δ2),'ΔΕΥΤΕΡΟΛΕΠΤΑ'
ΚΑΛΕΣΕ ΚΛΗΡΩΣΗ(ΑΠ,ΠΟΣΟ,Π,ΠΚ,Χ)
ΓΡΑΨΕ 'ΤΟ ΠΟΣΟ ΠΟΥ ΚΕΡΔΙΣΕΣ ΕΙΝΑΙ=',Χ
ΣΥΝΟΛΟ <-- ΣΥΝΟΛΟ-ΠΟΣΟ
ΣΥΝΟΛΟ <-- ΣΥΝΟΛΟ+Χ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ ΣΥΝΟΛΟ=0 Ή Ω1>=22
ΓΡΑΨΕ 'ΤΟ ΚΙΝΟ ΤΕΛΕΙΩΣΕ'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ ΔΙΑΦΟΡΑ_ΧΡΟΝΟΥ(Η1,Μ1,Σ1,Η2,Μ2,Σ2):ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Η1,Η2,Μ1,Μ2,Σ1,Σ2,ΣΥΜ1,ΣΥΜ2
ΑΡΧΗ
ΣΥΜ1 <-- Η1*3600+Μ1*60+Σ1
ΣΥΜ2 <-- Η2*3600+Μ2*60+Σ2
ΔΙΑΦΟΡΑ_ΧΡΟΝΟΥ <-- ΣΥΜ2-ΣΥΜ1
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΔΙΚΑΣΙΑ ΚΛΗΡΩΣΗ(Α,ΠΟΣΟ1,ΠΠ,ΠΚΙ,Υ)
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: ΠΠ[8,10],ΠΚΙ[8,10]
ΠΡΑΓΜΑΤΙΚΕΣ: ΠΟΣΟ1,Υ,Α[12,12]
ΑΚΕΡΑΙΕΣ: ΠΛ1,ΠΛ2,Ι,Ξ
ΑΡΧΗ
ΠΛ1 <-- 0!ΤΟ ΠΛΗΘΟΣ ΤΩΝ ΑΡΙΘΜΩΝ ΠΟΥ ΠΟΝΤΑΡΕ Ο ΜΙΛΤΟΣ
ΠΛ2 <-- 0! ΤΟ ΠΛΗΘΟΣ ΤΩΝ ΑΡΙΘΜΩ ΤΟΥ ΣΥΣΤΗΜΑΤΟΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 8
ΓΙΑ Ξ ΑΠΟ 1 ΜΕΧΡΙ 10
ΑΝ ΠΠ[Ι,Ξ]='Χ' ΤΟΤΕ
ΠΛ1 <-- ΠΛ1+1
ΑΝ ΠΠ[Ι,Ξ]=ΠΚΙ[Ι,Ξ] ΤΟΤΕ
ΠΛ2 <-- ΠΛ2+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Υ <-- Α[ΠΛ1,ΠΛ2]
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ