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
|