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 P06421142;
Var
  broj_1,broj_2, r, s_1, d_1,j_1,s_2,d_2,j_2, r_1,r_2,h_1,h_2: Integer;

Begin
  Randomize;
  broj_1 := trunc((10000-1000) * random + 1000);
  broj_2 := trunc((10000-1000) * random + 1000);
  h_1:= broj_1 div 1000;
  s_1:= broj_1 div 100 mod 10;
  d_1:= broj_1 div 10 mod 10;
  j_1:= broj_1 mod 10;
  h_2:= Broj_2 div 1000;
  s_2:= broj_2 div 100 mod 10;
  d_2:= broj_2 div 10 mod 10;
  j_2:= broj_2 mod 10;
  r_1:= d_1 + j_2; 
  r_2:= s_1 + d_2; 
  Writeln ('prvi broj je ','  ', broj_1);  
  Writeln ('drugi broj je ', '  ',broj_2);
  writeln ( 'zbir desetica prvog i jedinica drugog je' ,'  ', r_1 , ' a zbir stotica prvog i desetica drugog je','  ', r_2  );
  READLN;
END.

Izvođenje programa:

Index