Dann kommte bei beiden:
Error 85: ";" expected.
Der Sourcecode:
Zitat:
PROGRAM PrimTest; {W-Dur}
VAR
eingabe: STRING;
n, t: LongInt;
c: Integer;
BEGIN
WriteLn('keine Eingabe -> Beenden');
REPEAT
Write('Testzahl: '); ReadLn(eingabe);
Val(eingabe, n, c);
IF eingabe='' THEN ELSE
IF c>0 THEN ELSE
IF n<1 THEN ELSE
IF n=1 THEN WriteLn('keine Primzahl') ELSE
IF (n=2) OR (n=3) THEN WriteLn('Primzahl') ELSE
IF n MOD 2=0 THEN WriteLN('gerade Zahl') ELSE
BEGIN {Zahl testen}
t:=1;
REPEAT
t:=t+2
UNTIL (t*t>n) OR (n MOD t=0);
IF n MOD t=0
THEN WriteLn('teilbar durch ', t)
ELSE WriteLn('Primzahl')
END
UNTIL eingabe=''
END.
|
Eben ohne diese beiden Commands die du mir gegeben hast funzts.
MfG HW_Junkie