6.4.. Ispisati generisani cetverocifren slucajan broj.

Opis rješenja: Četverocifren broj se dobija izrazom: trunc((10000-1000) * random + 1000);. (Vidi >>)

Opis programa:

Listing programa:

PROGRAM P06421115;
USES
  Wincrt;
VAR
  broj : Integer;

BEGIN
  Randomize;
  broj := trunc((10000-1000) * random + 1000);
  Writeln ('Slucajan cetverocifren broj ', broj);
End.

Ispis na ekranu:

Index