перевод из десятичной в двоичную паскаль

Ответ от Денис Назаренко[мастер]
var
n,i: integer;
s:string;
begin
repeat
readln(n);
until(n > 0);
while n > 0 do begin
if n mod 2 = 0 then
s:= s + '0'
else begin
s:= s + '1';
n:= n - 1;
end;
n:= n div 2;
end;
for i:= length(s) downto 1 do
write(s);
end.
Как то так. можно использовать для записи остатков так же и массив. Впринципе, разница небольшая 🙂
P.S. Пожалуйста, не оставляйте вопрос не решенным.
Источник: учусь на программиста 🙂