6.4.. Napisati program koji generiše dvocifren broj, ispiše ga. Zatim ispiše cifre generisanog broja u obrnutom redoslijedu.

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 P06421155;
VAR
  broj, d, j: Integer;

BEGIN
  RANDOMIZE;
  broj := TRUNC( (100-10) * RANDOM) + 10;     { dvocifren broj }

  d:= broj DIV 10;      { cifra desetica }
  j:= broj MOD 10;      { cifra jedinicia }

  WRITELN('Broj ', broj);
  WRITELN('cifra jedinica ', j, ' cifra desetica ', d);
  READLN;
END.

Ispis na ekranu:

Index