14.. Ispisati trocifrene brojeve koji nisu djeljivi sa 2 (koristi jednu petlju).

Opis rješenja:Zadatak je riješen korištenjem jedne FOR petlje (vrijednosti od 100 do 999). Provjera da li je trocifreni broj djeljiv sa 2 tj. da li je ostatak dijeljenja sa 2 različit od nule se izvodi u unutrašnjoj petlji logičkim izrazom IF i MOD 2 <> 0 THEN.

Listing programa:

PROGRAM p14511011;
USES
  WinCrt;
VAR
  a, b, c, i : INTEGER;
BEGIN
  FOR i := 100 TO 999 DO
    IF i MOD 2 <> 0 THEN
      WRITELN('Neparan trocifren broj', i);
END.

Index