6.4.. Napisati program koji učitava četverocifreni broj i ispisuje cifre.

Opis rješenja: Izrazom broj MOD 10 dobijamo jedinice broja (u ovom slučaju dvocifrenog). Cjelobrojnim dijeljenom sa 10 (broj DIV 10) dobija se dvocifren broj. Zatim ponoviti postupak iz prethodnog zadatka. Vidi primjere >>.

Opis programa: Pri pretvaranju se koristi osobina pozicionog sistema.Četverocifren broj
broj = w*10³ + x*10² + y*10¹ + z*10⁰

Listing programa:

PROGRAM P06411107;
VAR
   w, x, y, z, broj, t: INTEGER;
BEGIN
  WRITE('Cetverocifren broj ');
  READLN(broj);
  z := broj MOD 10; {cifra jedinica}
  t := broj DIV 10; {prve tri cifre}
  y := t MOD 10; {cifra desetica}
  t := t DIV 10; {prve dvije cifre}
  x := t MOD 10; {cifra stotica}
  w := t DIV 10; {cifra hiljadica}
  WRITELN('broj=', broj, ' cifra hiljadica=', w, ' cifra stotica=', x, ' cifra desetica=', y, ' cifra jedinica=', z);
  READLN;
END.

Ispis na ekranu:

Index