14.. Ispisati trocifrene brojeve sa različitim prvom i trećom cifrom (koristi jednu petlju).

Opis rješenja: Provjera da li su cifre različite se izvodi logičkim izrazom IF a <> c THEN.

Listing programa:

PROGRAM p14511004;
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 <> c THEN
         WRITELN('razlicita prva i treca cifra ', n);
    END;
END.

Index