14.7.. Ispisati dvocifrene brojeve sa istim ciframa (koristi dvije petlje i jedna IF naredba, i=j).
Opis rješenja:
Listing programa:
PROGRAM p14711001;
USES
WinCrt;
VAR { deklarisanje promjenljivih }
i, j : Integer;
BEGIN
WRITELN('Dvocifreni brojevi sa istim ciframa'); { naslov }
i := 1;
WHILE i <= 9 DO
BEGIN
j := 0;
WHILE j <= 9 DO
BEGIN
IF i = j THEN
WRITELN('i= ', i , ' j= ', j, ' dvocifreni broj ', i,j);
j := j + 1;
END;
i := i + 1;
END;
END.
Ispis na ekranu:
![](../../../pascal/pascal_prir/140/140_izvedi/14111004.gif)
Index
|
![](../epp/000/Asistent.jpg) |