Diễn Đàn Pascal
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

mọi ng giúp mình

2 posters

Go down

mọi ng giúp mình Empty mọi ng giúp mình

Bài gửi by tue96 14/1/2011, 9:48 pm

Bài tập 5 Cho số tự nhiên n
(1000<=n<=9999). Hãy kiểm tra:
a. Cách biểu diễn thập phân của n có đối xứng hay không?
b. n có đúng 3 chữ số giống nhau.
c. n có đúng 4 chữ số khác
BT26 : Hãy tìm tất cả các số hạnh phúc có 6 chữ số. số n gọi là hạnh phúc nếu tổng 3 chữ số đầu bằng tổng 3 chữ số cuối.
bài 24 :Cho số tự nhiên p. Hãy biểu diễn p sang cơ số nhị phân.
bài cuối quan trọng mong mấy bác pro giúp em
tue96
tue96
Thành viên mới
Thành viên mới

Nam Ngày sinh : 25/02/1996
Tuổi : 28
Ngày đăng ký : 14/01/2011

Về Đầu Trang Go down

mọi ng giúp mình Empty Re: mọi ng giúp mình

Bài gửi by tieuquaitu 11/2/2011, 3:22 pm

var n,i,j,k:word;
a:array[1..100] of byte;
begin
write('nhap vao so nguyen duong');
readln(n);
i:=n;
j:=1;
while i>0 do
begin
a[j]:=n mod 2;
i:=i div 2;
if i>=0 the n j:=j+1;
end;
for k:=j downto 1 do write(a[k]);
readln
end.
lol! lol!
tieuquaitu
tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011

Về Đầu Trang Go down

mọi ng giúp mình Empty Re: mọi ng giúp mình

Bài gửi by tue96 11/2/2011, 4:40 pm

tks. bài này mình giải ra từ lẩu từ lâu rùi Laughing
tue96
tue96
Thành viên mới
Thành viên mới

Nam Ngày sinh : 25/02/1996
Tuổi : 28
Ngày đăng ký : 14/01/2011

Về Đầu Trang Go down

mọi ng giúp mình Empty Re: mọi ng giúp mình

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết