7.1.. Ispisati da li je učitani broj trocifren. Ako nije ispisati NIJE TROCIFREN.

Opis programa: Logički izraz je za provjeru da li je učinatni broj manji od 100 ili veći od 999 (a < 100) OR (a > 999) .

 Listing programa:

PROGRAM P07111036;
VAR
  a : INTEGER;
BEGIN
  Writeln('Broj nije trocifrena');
  Write('Broj ');
  Readln(a);
 
  IF (a < 100) OR (a > 999) THEN
    Writeln('Broj nije trocifren');
 
  READLN;
END.

Ispis na ekranu:

Index