14.6. Ispisati sve dvocifrene brojeve sa manjom prvom cifrom. (koristi dvije petlje i jedna IF naredba, i<j).

Opis rješenja: Logičkog izraza je sličan prethodnim: i<j .

Listing programa:

PROGRAM dvoc14_6;
USES
  WinCrt;
VAR
  i, j: INTEGER;
BEGIN
  FOR i := 1 TO 9 DO
    FOR j := 0 TO 9 DO
      IF i < j THEN
        WRITELN('i= ', i , ' j= ', j, ' dvocifreni broj sa manjom prvo cifroma ', i,j);
END.

Index