6.4. Generisati dva četverocifrena slučajna broja. Sabrati cifre desetica prvog i jedinica drugog broja. Sabrati cifre stotica prvog i desetica drugog broja.

Opis programa:

Listing programa:

PROGRAM P06421146;
var
broj,a,b,p:integer;
begin
  randomize;
  broj := trunc((100-10)*random+10);
  writeln('taj  broj je', broj);
  a := broj div 10;
  b := broj mod 10;
  p := 1;
  p := a*b;
  writeln('proizvod je',p);
  READLN;
END.

Izvođenje programa:

Index