6.4.. Generisati dva dvocifrena slučajna broja. Sabrati cifre desetica prvog i jedinica drugog broja i obratno.

Opis rješenja: Pri pretvaranju se koristi osobina pozicionog sistema. Dvocifren broj
broj = x*10¹ + y*10⁰
Ostatak dijeljenja dvocifrenog broja sa 10 broj MOD 10 dobijamo jedinice broja (u ovom slucaju dvocifrenog). Cjelobrojnim dijeljenom sa 10 (broj DIV 10) dvocifrenog broja se dobija cifra desetica. Vidi primjere >>. Ispisati prvi cifru desetica pa cifru jedinica.

Listing programa:

PROGRAM P06421136;
VAR
  broj1, broj2, d1, d2, j1, j2, suma1, suma2: Integer;

BEGIN
  WRITELN('Suma desetica i jedinica unakrsno');
  RANDOMIZE;
  broj1 := TRUNC( (100-10) * RANDOM) + 10;     { dvocifren broj 1 }
  broj2 := TRUNC( (100-10) * RANDOM) + 10;     { dvocifren broj 2 }

  j1 := broj1 MOD 10;    { cifra jedinica1 }
  j2 := broj2 MOD 10;    { cifra jedinica2 }

  d1 := broj1 DIV 10;    { cifra desetica1 }
  d2 := broj2 DIV 10;    { cifra desetica2 }
  suma1 := d1 + j2;   { suma desetica1 i jedinica2 }
  suma2 := d2 + j1;   { suma desetica2 i jedinica1 }

  WRITELN('1. broj ', broj1);
  WRITELN('2. broj ', broj2);
  WRITELN('Suma desetica1 i jedinica2 = ', d1, ' + ', j2, ' = ', suma1);
  WRITELN('Suma desetica2 i jedinica1 = ', d2, ' + ', j1, ' = ', suma2);
  READLN;
END.

Ispis na ekranu:

Index