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;
USES
WinCrt;
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);
END.
Ispis na ekranu:

Index
|