Diễn đàn tin học Nguyễn Văn Linh

The second house for every one
 
IndexTrợ giúpTìm kiếmThành viênĐăng kýĐăng Nhập

Share | 
 

 Số hoàn hảo

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiê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.
Về Đầu Trang Go down
hoangtin14
Mèo con


Tổng số bài gửi : 96
Join date : 08/02/2010
Age : 21
Đến từ : Bình Định

Bài gửiTiê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.
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiê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í đó.
Về Đầu Trang Go down
hoangtin14
Mèo con


Tổng số bài gửi : 96
Join date : 08/02/2010
Age : 21
Đến từ : Bình Định

Bài gửiTiêu đề: Re: Số hoàn hảo   Tue 23 Mar 2010, 20:12

tuy nó phí nhưng dc cái dễ hỉu ^^.
Về Đầu Trang Go down
administrators
Gà nhỏ


Tổng số bài gửi : 29
Join date : 15/03/2010

Bài gửiTiê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?. Very Happy . Hỏi chơi vậy thôi, nếu là 2 người phân biệt thì sorry nhé. Razz
Về Đầu Trang Go down
hoangtin14
Mèo con


Tổng số bài gửi : 96
Join date : 08/02/2010
Age : 21
Đến từ : Bình Định

Bài gửiTiê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.
Về Đầu Trang Go down
Hovanthong
Admin
Admin


Tổng số bài gửi : 101
Join date : 25/07/2010
Age : 22
Đến từ : Hưng nguyên-Nghệ An

Bài gửiTiê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. 
Về Đầu Trang Go down
http://thongtra.forum-viet.com
Sponsored content




Bài gửiTiêu đề: Re: Số hoàn hảo   Today at 18:53

Về Đầu Trang Go down
 
Số hoàn hảo
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Nguyễn Văn Linh :: Góc tin học :: Lớp chuyên tin-
Chuyển đến