CLS
DEFSNG A-D
PRINT "Sz mtani,m‚rtani,harmonikus k”z‚p"
b = 1
beker: SOUND 4000, .3: INPUT "Sz m"; a
IF n = 0 AND a <= 0 THEN PRINT "Nincs el‚g adat!": SOUND 3000, 1: GOTO beker
IF a <= 0 THEN GOTO kiir
b = b ^ (n / (n + 1)) * a ^ (1 / (n + 1)): c = c + 1 / a: d = d + a: n = n + 1
GOTO beker
kiir:
PRINT "Biztos? (i)"
ss: a$ = INKEY$: IF a$ = "" THEN GOTO ss
IF a$ <> "i" AND a$ <> "I" THEN GOTO beker
PRINT " "
PRINT "Tagok sz ma:"; n
PRINT "Sz mtani k”z‚p:"; d / n
PRINT "M‚rtani k”z‚p:"; b
PRINT "Harmonikus k”z‚p:"; n / c