14.. Ispisati sve trocifrene brojeve sa većom prvom cifrom od druge (koristi jednu petlju).
Opis rješenja: Provjera da li je prva cifra veća od druge cifre se izvodi logičkim izrazom IF a > b THEN.
Listing programa:
PROGRAM p14511005;
USES
WinCrt;
VAR
a, b, c, n : INTEGER;
BEGIN
FOR n := 100 TO 999 DO
BEGIN
a := n DIV 100;
b := (n - a*100) DIV 10;
c := n MOD 10;
IF a > b THEN
WRITELN('Prva veca od druge ', n);
END;
END.
Index
|