Competencia de Programación!

[Blag]

Aquí está el código en TURBO PASCAL:

Código:

PROGRAM dectobin;
USES crt;

VAR numero,suma,digito,exponente:LONGINT;
VAR respuesta:STRING;

BEGIN
       REPEAT
       CLRSCR;
       GOTOXY(1,4);
       WRITELN('Ingresa el numero decimal: ');
       READLN(numero);

       suma:=0;
       exponente:= 1;

       REPEAT
       digito:= numero MOD 2;
       numero:= numero DIV 2;
       suma:= suma + digito * exponente;
       exponente:= exponente * 10;
       UNTIL numero <= 0;

       WRITELN('El numero binario es: ');
       WRITELN(suma);
       WRITELN('Deseas continuar (s/n)?: ');
       READ(respuesta);
       suma:=0;
       UNTIL respuesta = 'n';
END.