pastebin

program calculator;

 

procedure decimal_to_n(x,n: integer); // x=číslo v desiatkovej, n=báza

var pole: array of integer;

var i,j: integer;

 

i:=0;

setlength(pole,1);

while x>0 do

  i:=i+1;

  pole[i]:=(x mod n);

  //writeln(pole[i]);

  setlength(pole,length(pole)+1);

  //writeln(length(pole));

  x:=x div n;

end;

for j:= (i) downto 0 do

write (pole[j],' ');

end;

 

decimal_to_n(31,2);

end.