! Συνολικές στήλες στο lotto
! Θεωρία: Παραγοντικό P!(x)
! P!(X)= X*(X-1)*(X-2)*..*1
! P!(0)=1
! Για το λότο οι συνολικές εξάδες είναι
! Κανονικός τύπος P!(49)/P!(49-6)/P!(6)=13983816
! Αν το δούμε πιο καλά θα βρούμε την απλή μορφή:
! Απλή μορφή 49*48*47*46*45*44/6/5/4/3/2=13983816
! ΣΤΟΧΟΣ ΤΑ ΕΝΔΙΑΜΕΣΑ ΑΠΟΤΕΛΕΣΜΑΤΑ ΝΑ ΕΙΝΑΙ *ΜΙΚΡΑ*
! Δηλαδή μικρότερα από το τελικό νούμερο 13983816
! Αυτό είναι ένα πραγματικό πρόβλημα που μπορεί να αντιμετωπίσουν προγραμματιστές
! λόγω των περιορισμών στο υποσύστημα πράξεων
ΠΡΟΓΡΑΜΜΑ Α
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Χ,Κ
ΠΡΑΓΜΑΤΙΚΕΣ: Π, Π1, ΠΕ
ΑΡΧΗ
ΓΡΑΨΕ 'Συνολικές 6-αδες από 49 νούμερα'
Χ <-- 6
Π <-- 49
ΓΡΑΨΕ 'Π=', 49
ΓΙΑ Κ ΑΠΟ Χ ΜΕΧΡΙ 2 ΜΕ ΒΗΜΑ -1
Π1 <-- Π
ΠΕ <-- (50-Κ)/Κ
Π <-- Π*ΠΕ
ΓΡΑΨΕ '*',Α_Μ(50-Κ),'/ ', Α_Μ(Κ),' = ', Π1,'*',ΠΕ,' => Π=', Π
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΕΠΑΛΗΘΕΥΣΗ=', (49*48*47*46*45*44)/(6*5*4*3*2)
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ