Nhập một số, đổi ra hệ nhị phân và bát phân

binary_and_octal.pas

program binary_and_octal;
uses crt;
var input: int64;
function string_reverse(s: ansistring): ansistring;
 var i: longint;
 begin
  for i:=length(s) downto 1 do string_reverse:=string_reverse+s[i];
 end;
function decimalto(n, x: longint): ansistring;
 var tmp: string;
 begin
  while n<>0 do begin
   str(n mod x, tmp);
   decimalto:=decimalto+tmp;
   n:=n div x;
  end;
 decimalto:=string_reverse(decimalto);
 end;
begin
 clrscr;
 write('Nhap so: ');
 readln(input);
 writeln('Nhi phan: ', decimalto(input, 2));
 write('Bat phan: ', decimalto(input, 8));
 readkey;
end.