=1; REPEAT D[I]

Bài 4

i:=1;

Repeat

d[i]:=n mod 2;

2

n:=n div 2;

i:=i+1;

Until(n=0);

Write('So nhi phan la:');

For j:=i-1 downto 1 do Write (d[j]);

1

Readln;

End.