14.5. Ispisati sve dvocifrene brojeve sa različitim ciframa (koristi dvije petlje i jedna IF naredba).
Opis rješenja: Zadatak je riješen kao prethodni uz promjenu logičkog izraza: i<>j.
Kao što se vidi izvođenju program nema brojeve 77, 88 kao ni 99. Prethodni dvocifreni brojevi sa istim ciframa (11, do 66) takođe nisu ispisani.
Listing programa:
REM 14111005
PRINT "Dvocifreni brojevi - razlicite cifre"
FOR i = 1 TO 9 : REM za cifre desetica od 1 do 9 radi
FOR j = 0 TO 9 : REM za cifre jedinica od 0 do 9 radi
: REM razlicite cifre?
IF i <> j THEN
PRINT "i = "; i, " j = "; j, " dvocifreni broj = "; 10 * i + j : REM ispis
END IF
NEXT j
NEXT i
END
Ispis na ekranu:
Index
|