ΠΡΟΓΡΑΜΜΑ ΕΠΙΘΥΜΗΤΗ_ΕΞΑΔΑ_ΑΡΙΘΜΩΝ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ι,Χ[6],Κ,Α[6],Λ
ΑΡΧΗ
ΓΡΑΨΕ 'Θέστε 6 ακέραιους από το 1 ως και το 49'
ΓΡΑΨΕ 'Για να κερδίσετε πρέπει να μαντέψετε τουλάχιστον 3 αριθμούς'
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 6
ΓΡΑΨΕ ''
ΓΡΑΨΕ 'Δώστε τον αριθμό',Κ
Ι <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ Ι=1 ΤΟΤΕ
ΓΡΑΨΕ ''
ΓΡΑΨΕ 'Αριθμός εκτός ορίων προσπαθήστε ξανά'
ΤΕΛΟΣ_ΑΝ
ΔΙΑΒΑΣΕ Χ[Κ]
Α[Κ] <-- ΣΤΡΟΓΓ(49/(ΤΥΧΑΙΟΣ(Χ[Κ])+1))
Ι <-- 1
ΜΕΧΡΙΣ_ΟΤΟΥ Χ[Κ]>0 ΚΑΙ Χ[Κ]<50
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Λ <-- 0
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 6
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 6
ΑΝ Α[Κ]=Χ[Ι] ΤΟΤΕ
Λ <-- Λ+1
Κ <-- 6
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ''
ΑΝ Λ>=3 ΤΟΤΕ
ΓΡΑΨΕ 'Κερδίσατε !'
ΓΡΑΨΕ 'Μαντέψατε',Λ,'αριθμούς'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Χάσατε'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ