14.7.. Napisati program za ispis dvocifrenih brojeva.

Opis programa: Zadatak je riješen korišćenjem dvije WHILE petlje, petlja u petlji. Vanjska petlja je za ispis prve cifre a unutrašnja za ispis druge cifre.

Listing programa:

PROGRAM p14711001;
USES
  WinCrt;
VAR              { deklarisanje promjenljivih }
  i, j : Integer;  

BEGIN
  WRITELN('Dvocifreni brojevi');  { naslov }
  
  i := 1;
  WHILE i <= 9 DO
    BEGIN
      j := 0;
      WHILE j <= 9 DO
        BEGIN
          WRITELN('i= ', i , ' j= ', j, ' dvocifreni broj ', i,j);
          j := j + 1;
        END;
      i := i + 1;
    END;
END.

Ispis na ekranu:

Index