6.4.. Napisati program koji generiše trocifren broj, ispiše ga. Zatim ispiše cifre u jednu ispod druge.

Opis rješenja: Dvocifren broj se dobija izrazom: trunc((100-10) * random + 10);.(Vidi >>) Funkcija TRUNC vraca cio dio realnog broja. MOD kreira ostatak cjelobrojnog dijeljenja.

Opis programa:

Listing programa:

PROGRAM P06421159;
VAR
  broj, s, d, j: Integer;

BEGIN
  RANDOMIZE;
  broj := TRUNC((1000-100) * RANDOM) + 100;     { trocifren broj }

  s:= broj div 100;            { cifra stotica }
  d:= broj div 10 mod 10;      { cifra desetica }
  j:= broj mod 10;             { cifra jedinicia }

  WRITELN('Broj ', broj);
  WRITELN('cifra stotica ', s);
  WRITELN('cifra desetica ', d);
  WRITELN('cifra jedinica ', j);
  READLN;
END.

Ispis na ekranu:

Index