=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.
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.