6.4. Ispisati generisani dvocifren slučajan broj. Zatim ispisati razliku njegovih cifara.

Opis programa:

Listing programa:

PROGRAM P06421143;
Var
  broj, r, x, y: Integer;
Begin
  Randomize;
  broj := trunc((100-10) * random + 10);
  x:= broj div 10;
  y:= broj mod 10;
  r:= abs( x-y);   
  Writeln ('taj broj je  ','   ', broj , '  a razlika njegovih cifara je ' ,'  ', r  );
  READLN;
END.

Izvođenje programa:

Index