Sử dụng ngôn ngữ lập trình Pascal (Pree Pascal) để lập trình giải các bài toán sau: Viết chương trình đổi một số nguyên dương ra số nhị phân. Ví dụ: Nhap so nguyen duong 5 Kết quả: So nhi phan la: 101 Khi do so tien cua anh nong dan la: 503383.37 dong.
2 câu trả lời
program oken;
uses crt;
var n,m,h,y: byte;
x,s: string;
begin
clrscr;
write('Nhap 1 so duong bat ky: '); readln(n);
h:=n; s:= ' ';
while h<>0 do
begin
m:= h mod 2;
if y<10 then
str(m,x)
else
x:= chr(m+55);
s:=s+x;
h:=h div 2;
end;
writeln('So ',n,' doi thanh he nhi phan:',s);
readln;
end.
