Giúp em nhanh cái em sắp đi học roài

[fcmanu]

Các bác giúp em với Đề là:

Nhập số tự nhiên N: In ra dạng biễu diễn nhị phân của N

[tranvanho]

bài này mai tui post lên cho
nhưng bạn hãy cứ thử suy nghĩ xem thuật toán nó thế nào
như vậy mới mong nhannh tiến bộ đc

[alucar]

Đây bài này dễ mà chỉ cần mảng với mod - div là ra hết
program vd;
uses crt;
var n,i,j:word;
var a:array[1..50] of word;
begin
clrscr;
i:=0;
write('Nhap so N ');
read(n);
while n<>0 do
begin
i:=i+1;
a[i]:=n mod 2;
n:=n div 2;
if n=2 then begin
n:=0;
a[i+1]:=0;
end;
end;
for j:=i downto 1 do
write(a[j]);
readln;
readln;
end.

[nhat_truong]

Đây bài này dễ mà chỉ cần mảng với mod - div là ra hết
program vd;
uses crt;
var n,i,j:word;
var a:array[1..50] of word;
begin
clrscr;
i:=0;
write('Nhap so N ');
read(n);
while n<>0 do
begin
i:=i+1;
a[i]:=n mod 2;
n:=n div 2;
if n=2 then begin
n:=0;
a[i+1]:=0;
end;
end;
for j:=i downto 1 do
write(a[j]);
readln;
readln;
end.

Ct chạy sai với n=4 và nhiều bộ dữ liệu khác
code đúng:

program vd;
uses crt;
var n,i,j: word;
    a: array[1..50] of word;

begin
    clrscr;
    i:=0;
    write('Nhap so N ');
    read(n);
    while n<>0 do
          begin
              i:=i+1;
              a[i]:=n mod 2;
              n:=n div 2;
          end;
    for j:=i downto 1 do
    write(a[j]);
    readln;
end.

[pro9x.love.2t]

bài từ năm 2007 mà cũng moi lên đc à #

[nhat_truong]

bài từ năm 2007 mà cũng moi lên đc à #

Tại rảnh hông có chuyện gì làm, mà bạn cũng thức khuya dzữ, 3h sáng còn post bài

[trungcxht]

procedure np(n : integer)
begin
if n div 2 <> 0 then np(n div 2);
write ( n mod 2 )
end;