14.5.. Ispisati sve trocifrene brojeve čija je suma cifara jednaka učitanom broju X.  Učitani broj X mora biti iz intervala od 1  do 27.

Opis rješenja: Provjera se izvodi sa naredbom IF (a + b + c) = n THEN

Listing programa:

PROGRAM p14511033;
USES
  WinCrt;
VAR
  a, b, c, i, n: INTEGER;
BEGIN
  WRITE('Broj');
  READLN(n);
  FOR i := 100 TO 999 DO
    BEGIN
      a := i DIV 100;
      b := (i - a*100) DIV 10;
      c := i MOD 10;
        IF (a + b + c) = n THEN
          WRITELN('trocifreni broj jednak sumi cifara', i,j,k);
    END;
END.

Index