8.1.. Naći proizvod prirodnih brojeva u intervalu od k do n koji su deljivi sa 4.

Opis rješenja: Provjera djeljivosti izvodi se logičkim izrazom i MOD 4 = 0 (djeljivi sa 4 bez ostatka).

Listing programa:

1
2
3
4
5
6
7
8
9
REM p08112056
CLS
INPUT "Unesi granice intervala:"; k, n
P = 1
FOR I = k TO n
  IF I MOD 4 = 0 THEN P = P * I
NEXT I
PRINT "Proizvod je:"; P
END

Ispis na ekranu:

Index