14.4.. Ispisati trocifrene brojeve čija je prva cifra djeljiva sa 3 a druga cifra djeljiva sa 4 (koristi tri petlje).

Listing programa:

program p14411015;
uses wincrt;
var
i, j, k : integer;
begin
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 4 = 0) then
    writeln('trocifreni broj ', i,j,k);
end.

Ispis na ekranu:

Index