8.3.. Napisati program za ispis proizvoda brojeva od 1 do n čija je cifra jedinica 3.

Opis rješenja: Provjera cifre jedinica izvodi izdvajanjem cifre jecinica i MOD 10. Zatim u istom logičkom izrazu je i provjera da li je to cifra 3. i MOD 10 = 3 (cifra jedinica 3).

Listing programa:

REM p08312055;
CLS
PRINT "Do broja: ";
INPUT N
P=1
I=1
DO
  IF I MOD 10 = 3 THEN
    P = P * I
  END IF
  I = I + 1 
LOOP UNTIL I > N
PRINT "PROIZVOD PRIRODNIH BROJEVA SA CIFROM JEDINICA 3 DO "; N; " je "; P
END

Ispis na ekranu:

Index