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 P07111040;
CONST
max = 9;
min = 1;
VAR
a : INTEGER;
begin
Writeln('Djeljivost generisanog broja?');
RANDOMIZE;
a := TRUNC((max - min) * RANDOM)+ min; { Broj }
IF a MOD 3 = 0 THEN
Writeln( ' a ', a);
READLN;
END.
Ispis na ekranu:
Index
|