7.1.. Provjeriti da li je od dva generisana dvodnocifrena broja prvi djeljiv sa drugim. Ako jeste ispisati DJELJIV.

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

 Listing programa:

PROGRAM P07111039;
CONST
  max = 99;     { najveci dvocifren broj }
  min = 10;     { najmanji dvocifren broj }

VAR
  a, b : INTEGER;
begin
  Writeln('Djeljivost dva generisana broja?');
  RANDOMIZE;
  a := TRUNC((max - min) * RANDOM)+ min;     { 1. Broj }

  b := TRUNC((max - min) * RANDOM)+ min;     { 2. Broj }

  IF a MOD b = 0 THEN
    Writeln(a, ' djeljivo sa ', b);
 
  READLN;
END.

Ispis na ekranu:

Index