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

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

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

Đây bài này dễ mà chỉ cần mảng với mod - div là ra hết :D
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.

Quote:

---

Được gửi bởi alucar

Đây bài này dễ mà chỉ cần mảng với mod - div là ra hết :D
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:

Code:

---

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.

---

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

Quote:

---

Được gửi bởi pro9x.love.2t

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

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