6.4.. Sabrati dva generisana cetverocifrena slucajna broja.

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

Opis programa:

Listing programa:

PROGRAM P06421116;
VAR
  broj1, broj2, s : Integer;

BEGIN
  Randomize;
  broj1 := trunc((10000-1000) * random + 1000);
  broj2 := trunc((10000-1000) * random + 1000);
  s := broj1 + broj2;
  Writeln (broj1, ' + ', broj2, ' = ', s );
  READLN;
END.

Ispis na ekranu:

Index