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

Opis programa: Logički izraz je (s < 10) OR (s > 99).

 Listing programa:

PROGRAM P07111038;
VAR
  a, b, s: INTEGER;
begin
  Writeln('Dvocifrena suma?');
  Write('1. Broj ');
  Readln(a);
  Write('2. Broj ');
  Readln(b);
 
  s := a + b;
  IF (s < 10) OR (s > 99) THEN
    Writeln('nije dvocifren');
 
  READLN;
END.

Ispis na ekranu:

Index