tengo este codigo que pasa de decimal a binario pero quiero saber si me pueden ayuda a ser este programa de binario a decimal......
uses
SysUtils,CONSOLE;
VAR NUM,AUXNUM,I,SUMA,DIGITO,EXPO:LONGINT; VAR x:STRING;
begin
REPEAT
CLRSCR;
WRITELN('Igrese el Numero Decimal');
readln(num);
suma:=0;
auxnum:=num;
expo:=1;
repeat
digito:=auxnum mod 2;
auxnum:=auxnum div 2;
suma:=suma +digito * expo;
expo:=expo * 10 ;
until auxnum <=0;
writeln('El Numero BInario Es:::');
writeln(suma);
writeln('Desea Continuar s/n ? ');
suma:=0;
readln(x);
UNTIL x='n';
end.
