6.4. Ispisati generisani trocifren slučajan broj. Zatim ispisati razliku prve dvije cifre.

Opis programa:

Listing programa:

PROGRAM P06421144;
Var
  broj, r, s, d,j: Integer;

Begin
  Randomize;
  broj := trunc((1000-100) * random + 100);
  s:= broj div 100;
  d:= broj div 10 mod 10;
  j:= broj mod 10;
  r:= abs(s-d);  
  Writeln ('slucajan broj je ', broj);
  writeln ('razlika prve dvije cifre je ',r);
  READLN;
END.

Izvođenje programa:

Index