14.5.. Ispisati trocifrenih brojeve čija je prva cifra djeljiva sa 3 a druga cifra djeljiva sa 4.
Opis rješenja: Provjera djeljivosti se izvodi naredbom MOD tj. if (s MOD 3 = 0 AND d MOD 4 = 0). Ako je logički izraz istinit izvrši uvečanja.
Listing programa:
REM 14511020
PRINT "Trocifren broj ispis - prva cifra djeljiva sa 3 a druga cifra djeljiva sa 4"
FOR i = 100 TO 999 : REM za brojeve od 100 do 999
s = INT(i / 100) : REM stotice
d = INT((i MOD 100) / 10) : REM desetice ili INT(i / 10) MOD 10 ili INT((i - s * 100) / 10)
j = i MOD 10 : REM jedinice
: REM prva cifra djeljiva sa 3 a druga cifra djeljiva sa 4?
IF (s MOD 3 = 0) AND (d MOD 4 = 0) THEN
PRINT i; " ";
END IF
NEXT i
END
Ispis na ekranu:
Index
|