6.4.. Izdvojiti cifre trocifrenog broja. Sabrati izdvojene cifre.

Opis rješenja: Pri pretvaranju se koristi osobina pozicionog sistema.Trocifren broj
broj = x*10² + y*10¹ + z*10⁰
Izrazom broj MOD 10 dobijamo jedinice broja (u ovom slučaju trocifrenog). Cjelobrojnim dijeljenom sa 10 (broj DIV 10) dobija se dvocifren broj. Zatim ponoviti postupak iz prethodnog zadatka. Vidi primjere >>.

Opis programa:

Listing programa:

PROGRAM P06411106;
VAR
  x, y, z, broj, t, s: INTEGER;
BEGIN
  WRITE('Trocifren broj ');
  READLN(broj);
  z := broj MOD 10; {cifra jedinica}
  t := broj DIV 10; {prve dvije cifre}
  y := t MOD 10; {cifra desetica}
  x := t DIV 10; {cifra stotica}
  s := x + y + z; {suma cifra}
  WRITELN('broj=', broj, ' cifra stotica=', x, ' cifra desetica=', y, ' cifra jedinica=', z, ' Suma cifra=', s);
  READLN;
END.

Izvođenje programa:

Index