7.1.. Provjeri da li je generisani jednocifren broj djeljiv sa 3. Ako jeste ispiši DJELJIV SA 3.

Opis programa: Logički izraz je: a MOD 3 = 0.

 Listing programa:

PROGRAM P07111041;
CONST
  max = 99;
  min = 10;

VAR
  a : INTEGER;
begin
  Writeln('Da li je broj djeljiv sa 3?');
  RANDOMIZE;
  a := TRUNC((max - min) * RANDOM)+ min;     { Broj }

  IF a MOD 3 = 0 THEN
    Writeln( 'djeljiv sa 3');
 
  READLN;
END.

Ispis na ekranu:

Index