CLS
PRINT "     Mennyi az es‚lye, hogy egy n f“s oszt lyb˘l legal bb ketten"
PRINT "             ugyanakkor nneplik a szlet‚snapjukat?"
PRINT
DEFDBL T
n = 2
RANDOMIZE TIMER
eleje:
t = 1
FOR i = 1 TO n - 1
t = t * (365 - i) / 365
NEXT
t = (1 - t) * 100
PRINT "l‚tsz m:"; n; ", es‚ly:"; t
n = n + 1
IF n = 154 THEN GOTO jatek
IF INT(n / 20) < n / 20 THEN GOTO tovabb
PRINT "Tov bb? (enter)"
ss: s$ = INKEY$: IF s$ = "" THEN GOTO ss
IF s$ <> CHR$(13) THEN GOTO jatek
tovabb:
GOTO eleje

jatek:
INPUT "H nyan j rtok egy oszt lyba"; n
t = 1
FOR i = 1 TO n - 1
t = t * (365 - i) / 365
NEXT
t = (1 - t) * 100
DIM tomb(n)
j = 1
veletlen:
szam = INT(RND * 365) + 1: PRINT szam;
tomb(j) = szam
IF j = 1 THEN GOTO mehet
FOR k = 1 TO j - 1
IF tomb(k) = szam AND van = 0 THEN talalat = talalat + 1: van = 1: PRINT "ŰŰ";
NEXT k
mehet: j = j + 1
IF j = n + 1 THEN j = 1: szamlalo = szamlalo + 1: van = 0: PRINT : PRINT
a$ = INKEY$
IF a$ <> "" THEN GOTO ertekel
GOTO veletlen
ertekel: PRINT : PRINT
PRINT "A tal latok sz zal‚kos ar nya:"; talalat / (szamlalo + 1) * 100
PRINT "Az elm‚leti es‚ly:"; t