Bài tập vòng lặp 3

Thu Jun 27, 2024 1:45 pm

Viết chương trình nhập một số nguyên duong n từ bàn phím. Chuyển số n vừa nhập thành số nhị phân?
ví dụ nhập n=7
Số 7 chuyển thành số nhị phân là :111
Nhập=101{là số thập phân}
Số 101 chuyển thành số nhị phân 1100101

GIẢI:

Code:: uses crt; var n, i: Integer; binaryNumber: array[0..31] of Integer; begin clrscr; write('Nhap so nguyên n: '); readln(n); i := 0; while (n > 0) do begin binaryNumber[i] := n mod 2; n := n div 2; i := i + 1; end; write('So nhi phan tuong ung: '); for i := i-1 downto 0 do write(binaryNumber[i]); readln; end.