14.4.. Ispisati trocifrene brojeve čija su prve dvije cifre djeljiva sa 3 a treća parna (koristi tri petlje).

Opis rješenja: Provjera se izvodi logičkim izrazom IF i MOD 3 = 0 AND j MOD 3 = 0 THEN. Prvi broj i MOD 3 = 0 i drugi broj j MOD 3 = 0 .

Listing programa:

PROGRAM p14411018;
USES
  WinCrt;
VAR
  i, j, k : INTEGER;
BEGIN
  WRITELN('Prve dvije cifre djeljiva sa 3');
  FOR i := 1 TO 9 DO
    FOR j := 0 TO 9 DO
      FOR k := 0 TO 9 DO
        IF i MOD 3 = 0  AND j MOD 3 = 0 THEN
          WRITELN('trocifreni broj ', i,j,k);
END.

Ispis na ekranu:

Index