PASCAL - Dvocifreni brojevi

14.5. Izdvojiti cifre iz trocifrenog broja.

Opis rješenja: Izdvajanje cifara trocifrenog broja se izvodi naredbama:
DIV - cjelobrojano dijeljenje i
MOD ostatak dijeljanja.

a := n DIV 100;	cjelobrojno dijeljenje se 100
*b := (n - a100) DIV 10;**	cjelobrojno dijeljenje se 10
c := n MOD 10;	osatatak dijeljena sa 10

Listing programa:

PROGRAM p14511002;
USES
  WinCrt;
VAR
  a, b, c, n : INTEGER;
BEGIN
  WRITE('Trocifreni broj');
  READLN(n);
  a := n DIV 100;
  b := (n - a*100) DIV 10;
  c := n MOD 10;
  WRITELN (n,' ', a,' ', b,' ',  c);
END.

Index