Số Bạn Bè - Tin Học Tây Sơn

Tin học Tây SơnBạ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.

Nỗ lực hết sức để thành công hay thất bại ta đều nở nụ cười

• 
• 
• 

  Tìm kiếm

  Display results as :Số bàiChủ đề

  Advanced Search

• 
• 
• 

Số bạn bè +5Thành LợinguyetnguyenĐịnh™Minh TrangAdmin9 posters

Tin học Tây Sơn :: Bài tập

Trang 1 trong tổng số 1 trang

Số bạn bè

by Admin Sat Jan 03, 2015 2:51 pm

Hai số m,n gọi là bạn của nhau nếu tổng các ước của m bằng n và ngược lại.Tìm tất cả các số là bạn của nhau và nhỏ hơn 70000.AdminGiáo viênTổng số bài gửi : 192Điểm thành tích : 20619Reputation : -6Join date : 29/12/2014 LikeDislike

Re: Số bạn bè

by Minh Trang Sat Jan 03, 2015 5:01 pm

Code:program banbe;uses crt;var m,n:longint;function tonguoc( x:longint):longint;var s,i:longint;begins:=0;for i:= 1 to x-1 doif x mod i = 0 then s:=s +i;tonguoc:=s;end;beginclrscr;writeln('cac cap so ban be la');for m:= 2 to 70000 doif (tonguoc(tonguoc(m))=m)and (m<tonguoc(m)) then writeln(m,' va ',tonguoc(m));readlnend.Minh TrangNắm được căn bảnTổng số bài gửi : 25Điểm thành tích : 20347Reputation : -3Join date : 03/01/2015Age : 25Đến từ : Trường THCS Bình thuận LikeDislike

Re: Số bạn bè

by Sponsored content

Sponsored content

Re: Số bạn bè

by Định™ Sat Jan 03, 2015 5:01 pm

Code:program Sobanbe;uses crt;var m,n,i,a,b:longint;function Suoc(x:longint):longint; var j,s:longint; begin s:=0;  for j:=1 to x-1 do   if (x mod j) = 0 then s:=s+j;  Suoc:=s; end;beginclrscr;for m:=1 to 70000-1 do if (Suoc(Suoc(m))=m) and (Suoc(m)>=m) and (m<70000) and (Suoc(m)<70000) then writeln(m,#32,Suoc(m));readlnend.Được sửa bởi Định Đẹp Trai ngày Sat Jan 03, 2015 5:01 pm; sửa lần 1.Định™HackerTổng số bài gửi : 99Điểm thành tích : 20421Reputation : -1Join date : 03/01/2015Age : 25Đến từ : THCS Võ Xán LikeDislike

Re: Số bạn bè

by nguyetnguyen Sat Jan 03, 2015 5:01 pm

Code:program sobanbe;uses crt;var m:longint;function tonguoc(t:integer):integer;var s,i:integer;begin s:=0; for i:=1 to t-1 do if t mod i=0 then s:=s+i; tonguoc:=s;end;begin clrscr; writeln('tat ca cac do la ban be cua nhau va nho hon 70000 la:'); for m:=1 to 70000-1 do if tonguoc(tonguoc(m))=m then if tonguoc(m)<=m then writeln(m,',',tonguoc(m),' la so ban be'); readlnend.nguyetnguyenNắm được căn bảnTổng số bài gửi : 23Điểm thành tích : 20349Reputation : -1Join date : 03/01/2015 LikeDislike

Re: Số bạn bè

by Thành Lợi Sat Jan 03, 2015 5:01 pm

Tra Loi:Program Ban_be;Uses crt;Var m: longint;Function TongU(x: integer): integer;Var i, t: integer;Begin t:= 0; For i:= 1 to x-1 do If (x mod i = 0) then t:= t+i; TongU:= t;end;begin clrscr; writeln('Cac so ban be la '); m:= 0; While m<= 70000 do begin m:= m+1; If TongU(TongU(m)) = m then If TongU(m) <= m then writeln(TongU(m), ' va ', m); end; readln;end.Thành LợiChăm chỉTổng số bài gửi : 108Điểm thành tích : 20414Reputation : -35Join date : 03/01/2015Age : 25Đến từ : Việt Nam LikeDislike

Re: Số bạn bè

by Chinh Sat Jan 03, 2015 5:02 pm

Code:program sobanbe;uses crt;var i,m:longint;function tonguoc(m:longint):longint;var s,i:longint;begins:=0;for i:=1 to m-1 do if m mod i=0 then s:=s+i;tonguoc:=s;end;beginclrscr;for m:=2 to 70000 do if (tonguoc(tonguoc(m))=m)and(tonguoc(m)<=m) then begin write(m,' va ',tonguoc(m) ,' la so ban be'); writeln; end;readln;end. ChinhMới học PascalTổng số bài gửi : 19Điểm thành tích : 20344Reputation : 2Join date : 03/01/2015Age : 26Đến từ : THCS Tây Thuận LikeDislike

Re: Số bạn bè

by chichien2015 Sat Jan 03, 2015 5:02 pm

Code:program ban_be;uses crt;var i,j,m,s,n:longint;function tonguoc(m:longint):longint;begins:=1; for i:=2 to m-1 do  if m mod i=0 then s:=s+i;  tonguoc:=s;  end;beginclrscr;for m:=2 to 70000 doif (tonguoc(tonguoc(m))=m)and(tonguoc(m)<=m) thenwriteln(m ,' va ', tonguoc(m) ,' la hai so ban be');readln;end.Được sửa bởi chichien2014 ngày Sat Jan 03, 2015 5:04 pm; sửa lần 2.chichien2015Nắm được căn bảnTổng số bài gửi : 28Điểm thành tích : 20353Reputation : 2Join date : 03/01/2015Age : 26Đến từ : Trường THCS Bình Thuận LikeDislike

Re: Số bạn bè

by lyhuynh3112 Sat Jan 03, 2015 5:02 pm

Code:program sobanbe;uses crt;var m,n:longint;function tonguoc(x:integer):integer;var i,s:integer;begin s:=0; for i:=1 to x-1 do if (x mod i)=0 then s:=s+i; tonguoc:=s;end;begin clrscr; writeln('cac so la ban cua nhau la:'); for n:=1 to 70000-1 do if tonguoc(tonguoc(n))=n then if tonguoc(n)>=n then writeln(n,' va ',tonguoc(n)); readln;end.lyhuynh3112Bắt đầu học nâng caoTổng số bài gửi : 37Điểm thành tích : 20360Reputation : 0Join date : 03/01/2015Age : 25Đến từ : dong pho LikeDislike

Re: Số bạn bè

by nguyendanhvong Mon Jan 05, 2015 1:49 pm

program sobanbe;uses crt;var m:longint;function tonguoc(s:integer):integer;var i,t:integer;begin t:=0; for i:=1 to s-1 do if s mod i = 0 then t:=t+i; tonguoc:=t;end;Begin clrscr; writeln(' tat ca cac so la ban cua nhau va nho hon 70000 la:'); for m:=1 to 70000-1 do if tonguoc(tonguoc(m))=m then if tonguoc(m)<=m then writeln(tonguoc(m),' ',m); readlnend.nguyendanhvongNắm được căn bảnTổng số bài gửi : 24Điểm thành tích : 20350Reputation : 1Join date : 03/01/2015Đến từ : Truong THCS tay Vinh LikeDislike

Re: Số bạn bè

by Admin Thu Jan 22, 2015 11:12 am

vọng làm lại bài này nhé.AdminGiáo viênTổng số bài gửi : 192Điểm thành tích : 20619Reputation : -6Join date : 29/12/2014 LikeDislike

Re: Số bạn bè

by nguyendanhvong Fri Jan 23, 2015 1:38 pm

Code:program sobanbe;uses crt;var m:longint;function tonguoc(s:integer):integer;var i,t:integer;begin t:=0; for i:=1 to s-1 do if s mod i = 0 then t:=t+i; tonguoc:=t;end;Begin clrscr; writeln(' tat ca cac so la ban cua nhau va nho hon 70000 la:'); for m:=1 to 70000-1 do if tonguoc(tonguoc(m))=m then if tonguoc(m)<=m then writeln(tonguoc(m),' ',m); readlnend.nguyendanhvongNắm được căn bảnTổng số bài gửi : 24Điểm thành tích : 20350Reputation : 1Join date : 03/01/2015Đến từ : Truong THCS tay Vinh LikeDislike

Re: Số bạn bè

by Sponsored content

Sponsored content

Tin học Tây Sơn :: Bài tập

Trang 1 trong tổng số 1 trangChuyển đến: Chọn Diễn Đàn||--Bài tập|--Tài liệu học tập|--Thử thách Permissions in this forum:Bạn không có quyền trả lời bài viết

• Trang Chính
• Free forum | ©phpBB | Free forum support | Báo cáo lạm dụng | Thảo luận mới nhất