7.1.. Provjeriti da li je suma dva učitana broja nije trocifrena, tada ispisati NIJE TROCIFREN.

Opis programa: Logički izraz je za provjeru da li suma manja od 100 ili veća od 999: (s < 100) OR (s > 999).

 Listing programa:

PROGRAM P07111042;
VAR
  a, b, s: INTEGER;
BEGIN
  Writeln('Suma nije trocifrena');
  Write('1. Broj ');
  Readln(a);
  Write('2. Broj ');
  Readln(b);
 
  s := a + b;
  IF (s < 100) OR (s > 999) THEN
    Writeln('Suma nije trocifrena');
 
  READLN;
END.

Ispis na ekranu:

Index