Problem je koji god broj da unesem izbaci mi da zbir nije deljiv, npr ubacim 126 i rezultat "Zbir nije deljiv" a znamo da jeste. Gde je greška? Hvala.
REM Deljivost zbira cifara trocifrenog broja sa brojem 3
CLS
10 INPUT n
IF n > 99 AND n <= 999 THEN
a = n / 100
b = (n / 10) MOD 10
c = n MOD 10
s = a + b + c
IF s MOD 3 = 0 THEN
PRINT "Zbir je deljiv";
ELSE
IF s MOD 3 <> 0 THEN
PRINT "Zbir nije deljiv"
END IF
END IF
ELSE PRINT "Greska"
GOTO 10
END IF
END