Перевод из десятичной системы в двоичную - Pascal

Формулировка задачи:

Здравствуйте! помогите пожалуйста написать программу, переводящую целые числа из десятичной системы счисления в двоичную. не могу догадаться как записыватьединицы и нули. знаю, что всё время надо делить на 2. надо ли делать массив в программе? заранее благодарю.

Код к задаче: «Перевод из десятичной системы в двоичную - Pascal»

textual
program asdasd;
var c,r,m,i,k,j:integer;
begin
readln(j);
k:=1;
for i:=1 to j do
begin
if k<j then k:=k*2; end;
if k>j then k:= k div 2;
   for m:=1 to j do
   begin
   if ((k=1) and (j=0))or((k=0) and (j=0)) then write()
    else
   if k=j then begin j:=0; write(1);end
   else 
      if k<j then begin j:=j-k; k:=k div 2; write(1); end
      else
        if k>j then begin k:= k div 2; write(0); end;
   end;
          end.

5   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ