14.4.. 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 (i + j + k) = n THEN:

Listing programa:

PROGRAM p14411028;
USES
  WinCrt;
VAR
  i, j, k, n : INTEGER;
BEGIN
  WRITE('Broj');
  READLN(n);
  FOR i := 1 TO 9 DO
    FOR j := 0 TO 9 DO
      FOR k := 0 TO 9 DO
        IF (i + j + k) = n THEN
          WRITELN('trocifreni broj jednak sumi cifara', i,j,k);
END.

Ispis na ekranu:

Index