Diễn đàn tin học Nguyễn Văn Linh
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.

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

The second house for every one
 
Trang ChínhLatest imagesTìm kiếmĐăng kýĐăng Nhập

 

 Số hoàn hảo

Go down 
4 posters
Tác giảThông điệp
littlelee
Admin
Admin
littlelee


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

Số hoàn hảo Empty
Bài gửiTiêu đề: Số hoàn hảo   Số hoàn hảo I_icon_minitimeSat 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
hoangtin14


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

Số hoàn hảo Empty
Bài gửiTiêu đề: Re: Số hoàn hảo   Số hoàn hảo I_icon_minitimeMon 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
littlelee


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

Số hoàn hảo Empty
Bài gửiTiêu đề: Re: Số hoàn hảo   Số hoàn hảo I_icon_minitimeTue 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
hoangtin14


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

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

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


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

Số hoàn hảo Empty
Bài gửiTiêu đề: Re: Số hoàn hảo   Số hoàn hảo I_icon_minitimeTue 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
hoangtin14


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

Số hoàn hảo Empty
Bài gửiTiêu đề: Re: Số hoàn hảo   Số hoàn hảo I_icon_minitimeTue 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
Hovanthong


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

Số hoàn hảo Empty
Bài gửiTiêu đề: Re: Số hoàn hảo   Số hoàn hảo I_icon_minitimeMon 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





Số hoàn hảo Empty
Bài gửiTiêu đề: Re: Số hoàn hảo   Số hoàn hảo I_icon_minitime

Về Đầu Trang Go down
 
Số hoàn hảo
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Hoán vị
» Dãy chia hết hoàn toàn dài nhất
» Dowload 50 phần mềm hoàn toàn miễn phí
» Bảng tuần hoàn !! forum ai bít sài đồ họa chỉ giúp cái :)

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