8.6.. Napisati program za ispis dvocifrenih brojeva kao na slici sa dvije petlje (za svaku cifru odvojena petlja):
![](085_zad/08514007.gif)
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:
![](../../pascal_prir/085/085_izvedi/08514007.gif)
Index
|