KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
function doihe2(a:integer):string; var t,i:integer; s,s1,doi:string; begin s:=”; while a<>0 do begin t:=a mod 2; str(t,s1); s:=s+s1; a:=a div 2; end; for i:=length(S) downto 1 do doihe2:=doihe2+s[i]; end;
function doihe2(a:integer):string;
var t,i:integer;
s,s1,doi:string;
begin
s:=”;
while a<>0 do
begin
t:=a mod 2;
str(t,s1);
s:=s+s1;
a:=a div 2;
end;
for i:=length(S) downto 1 do
doihe2:=doihe2+s[i];
end;
kha đần độn # chúc bn hc tốt
function nhip(n: word):string;
var
t, i: word;
s, s2, doi: string;
begin
s:=”;
while n<>0 do
begin
t:=n mod 2;
str(t, s2);
s:=s+s2;
n:=n div 2;
end;
for i:=length(s) downto 1 do
nhip:=nhip+s[i];
end;