Viết ct đổi số hệ thập phân sang nhị phân và ngược lại Vd: Inp. Out 10 1010 1111 15 Inp dòng 1 số hệ thập phân 2 hệ nhị phân Out dòng 1 hệ nhị phân 2 hệ thập phân Thách ai làm đc
1 câu trả lời
program ct;
uses crt;
var n,m,H2,Y:qword;
a,H:string;
begin clrscr;
write('Nhap so nguyen duong: '); readln(n);
H2:=n;
H:=' ';
repeat
m:=H2 mod 2;
if Y<10 then str(m,a)
else a:=chr(m+55);
H:=a+H;
H2:=H2 div 2;
until H2=0;
write('So ',n,' doi sang he nhi phan la: ',H);
readln;
end.
Câu hỏi trong lớp
Xem thêm