CLS

PRINT "Prg.Name: DOLOOP.Bas"
PRINT "Autor: Stephanie Heinrich"
PRINT "Datum: 16.12.02"

REM---Deklaration---
REM S = Summe von a
REM z = Variable zum Z„hlen der durchlaufenen Schleifen
REM MW = Mittelwert
REM a = Variable

REM---Verarbeitung---
PRINT
DO
INPUT "Bitte geben sie eine Zahl ein: ", a
s = s + a
z = z + 1
LOOP UNTIL a = 999

M = s - 999

MW = M / (z - 1)

PRINT
PRINT "a=", a
PRINT "Die Summe = ", M
PRINT "Der Mittelwert betr„gt: ", MW
END