8.6.. Napisati program za ispis dvocifrenih brojeva kao na slici sa dvije petlje (za svaku cifru odvojena petlja):

Opis rješenja:

Listing programa:

PROGRAM p08614007;
USES
  WinCrt;
VAR
VAR
  i, j: INTEGER;
BEGIN
  i := 1;
  WHILE i <= 9 DO            { petlja za redove }
    BEGIN
      j := 0;
      WHILE j <= 9 DO        { petlja za kolona }
          BEGIN
            WRITE(i, j, ' ');
            j := j + 1;
          END;
        WRITELN;
      i := i + 1;
    END;
END.

Ispis na ekranu:

Index