littlelee
Admin
Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 29
Đến từ : Nghĩa địa
 |  Tiêu đề: Số hoàn hảo  Sat 20 Mar 2010, 19:53 | |
| Số hoàn hảo là số nguyene dương có tổng các ước dương trừ nó ra bằng chính nó. Ví dụ 28=1+2+4+7+14 là số hoàn hảo.
a) Nhập số n từ file hh.inp và cho biết có bao nhiêu số hoàn hảo <=n. Kết quả xuát ra file hh.out. File hh.inp chỉ gồm một một dòng duy nhất là số n.
b) Nhâp số n từ file st.inp n<=100 và hãy cho biết số hoàn hảo thứ n là số mấy. | |
|
hoangtin14
Mèo con
Tổng số bài gửi : 96
Join date : 08/02/2010
Age : 29
Đến từ : Bình Định
| | Tiêu đề: Re: Số hoàn hảo Mon 22 Mar 2010, 21:55 | |
| câu a nè (mình gõ trực tiếp nên chưa chạy thử cũng ko làm file cho nhanh nha) - Code:
-
Program sohoanhao;
uses wincrt;
var
a,i,n,t,ts:integer;
function kt(i:integer):boolean;
begin
kt:=false;
t:=0;
for a:=1 to i-1 do
if (i mod a= 0) then
t:=t+a;
if t=i then kt:= true;
end;
begin
Write('Nhap so n:');
Readln(n);
ts:=0;
For i:=1 to n do
if kt(i)= true then
inc(ts);
Writeln(ts);
end.
| |
|
littlelee
Admin
Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 29
Đến từ : Nghĩa địa
| | Tiêu đề: Re: Số hoàn hảo Tue 23 Mar 2010, 11:43 | |
| Bài trên hoangtin làm đúng rồi đó. Bài này dễ mà ^^. Tuy nhiên hoangtin tối ưu lại code đi nhé, bạn cho chạy đến i-1 thì hơi phí đó. | |
|
hoangtin14
Mèo con
Tổng số bài gửi : 96
Join date : 08/02/2010
Age : 29
Đến từ : Bình Định
| | Tiêu đề: Re: Số hoàn hảo Tue 23 Mar 2010, 20:12 | |
| tuy nó phí nhưng dc cái dễ hỉu ^^. | |
|
administrators
Gà nhỏ
Tổng số bài gửi : 29
Join date : 15/03/2010
| | Tiêu đề: Re: Số hoàn hảo Tue 23 Mar 2010, 20:22 | |
| Nhìn vào những câu chữ của các bạn viết mình đoán là hoangtin14 và littlelee một người có phải vậy hong. Có phải bạn đang dùng "thuật phân thân" không?.  . Hỏi chơi vậy thôi, nếu là 2 người phân biệt thì sorry nhé.  | |
|
hoangtin14
Mèo con
Tổng số bài gửi : 96
Join date : 08/02/2010
Age : 29
Đến từ : Bình Định
| | Tiêu đề: Re: Số hoàn hảo Tue 23 Mar 2010, 21:29 | |
| ko đâu. Mình và littlelee là hai người. mình ở bình định còn littlelee thì ko. Bọn mình quen ở diễn đàn vn-zoom.com. | |
|
Hovanthong
Admin
Tổng số bài gửi : 101
Join date : 25/07/2010
Age : 30
Đến từ : Hưng nguyên-Nghệ An
| | Tiêu đề: Re: Số hoàn hảo Mon 26 Jul 2010, 23:06 | |
| - Code:
-
Var
nt:array [1..100000] of boolean;
uoc:array [1..100000] of longint;
a,b,i,j,tam,sum1,sum2,kq:longint;
BEGIN
readln(a,b);
for i:=2 to b do
Begin
for j:=2 to b div i do
inc(uoc[i*j],i);
if (uoc[i]>=i) then
inc(sum2);
End;
for i:=2 to a-1 do
if (uoc[i]>=i) then
inc(sum1);
write(sum2-sum1);
END.
| |
|
