7.1. Provjeriti da li je razlika dva učitana broja dvocifrena. Ako jeste ispisati DVOCIFREN.

Opis programa: Sa tastature se učitavaju dva broja i formira njihova suma. Naredbom IF se izvodi provjera da li je formirana suma jednocifrena. Ako jex logički izraz (s > -1) AND (s < 10) istitnit suma je jednocifrena i ispisuje se tekst jednocifren. Logički izraz (s > -1) AND (s < 10) podrazumijeva da su oba relacijaska izraza istinita.

 Listing programa:

PROGRAM P07111030;
VAR
  a, b, r: INTEGER;
begin
  Writeln('Dvocifrena razlika');
  Write('1. Broj ');
  Readln(a);
  Write('2. Broj ');
  Readln(b);

  r := a - b;
  IF (r > 9) AND (r < 100) THEN
    Writeln('dvocifren');
  READLN;
END.

Ispis na ekranu:

Index