Chào mừng quý vị đến với website của Phạm Văn Phúc - Tuy Hòa- Phú Yên
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành
viên, vì vậy chưa thể tải được các tài liệu của
Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
số hữu nghị
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Phạm Văn Phúc (trang riêng)
Ngày gửi: 12h:56' 22-01-2015
Dung lượng: 31.5 KB
Số lượt tải: 273
Nguồn:
Người gửi: Phạm Văn Phúc (trang riêng)
Ngày gửi: 12h:56' 22-01-2015
Dung lượng: 31.5 KB
Số lượt tải: 273
Số lượt thích:
0 người
Hai số tự nhiên A, B được coi là hữu nghị nếu như số này bằng tổng các ước số thực sự của số kia ( tổng các ước không tính ước số 1 và chính nó) và ngược lại.
Lập chương trình tìm các cặp số hữu nghị có giá trị từ 1 đến N (nếu có). Nếu không có đưa ra thông báo “ không có”. Biết số tự nhiên N <=105 được lấy từ tập tin văn bản HUUNGHI.INP, Kết quả ghi ra tập tin văn bản HUUNGHI.OUT.
Ví dụ: với N=100 có 2 cặp số hữu nghị là 48-75 và 75 – 48
HUUNGHI.INP
HUUNGHI.OUT
10
100
1000
10000
Khong co cap so huu nghi tu 1 den 10
48-75
75-48
Co 2 cap so huu nghi tu 1 den 100
48-75
75-48
140-195
195-140
co 4 cap tu 1 den 1000
48-75
75-48
140-195
195-140
1050-1925
1575-1648
1648-1575
1925-1050
2024-2295
2295-2024
5775-6128
6128-5775
8892-16587
9504-20735
co 14 cap tu 1 den 10000
program Huu_nghi;
uses crt;
var n,j,d,tam:longint;
f:text;
const fi=`huunghi.inp`;
fo=`huunghi.out`;
{-------------------------}
function tong(x:longint):longint;
var i,s:longint;
begin
s:=0;
for i:=2 to x div 2 do
if x mod i=0 then s:=s+i;
tong:=s;
end;
{-------------------------}
begin
clrscr;
assign(f,fi);
reset(f);
readln(f,n);
close(f);
assign(f,fo);
rewrite(f);
d:=0;
for j:=1 to n do
begin
tam:=tong(j);
if tong(tam)=j then
begin
writeln(f,j,`-`,tam);
d:=d+1;
end;
end;
if d>0 then write(f,`co `,d,` cap tu 1 den `,n ) else
write(f, ` khong co cap so huu nghi nao tu 1 den `,n);
close(f);
end.
Lập chương trình tìm các cặp số hữu nghị có giá trị từ 1 đến N (nếu có). Nếu không có đưa ra thông báo “ không có”. Biết số tự nhiên N <=105 được lấy từ tập tin văn bản HUUNGHI.INP, Kết quả ghi ra tập tin văn bản HUUNGHI.OUT.
Ví dụ: với N=100 có 2 cặp số hữu nghị là 48-75 và 75 – 48
HUUNGHI.INP
HUUNGHI.OUT
10
100
1000
10000
Khong co cap so huu nghi tu 1 den 10
48-75
75-48
Co 2 cap so huu nghi tu 1 den 100
48-75
75-48
140-195
195-140
co 4 cap tu 1 den 1000
48-75
75-48
140-195
195-140
1050-1925
1575-1648
1648-1575
1925-1050
2024-2295
2295-2024
5775-6128
6128-5775
8892-16587
9504-20735
co 14 cap tu 1 den 10000
program Huu_nghi;
uses crt;
var n,j,d,tam:longint;
f:text;
const fi=`huunghi.inp`;
fo=`huunghi.out`;
{-------------------------}
function tong(x:longint):longint;
var i,s:longint;
begin
s:=0;
for i:=2 to x div 2 do
if x mod i=0 then s:=s+i;
tong:=s;
end;
{-------------------------}
begin
clrscr;
assign(f,fi);
reset(f);
readln(f,n);
close(f);
assign(f,fo);
rewrite(f);
d:=0;
for j:=1 to n do
begin
tam:=tong(j);
if tong(tam)=j then
begin
writeln(f,j,`-`,tam);
d:=d+1;
end;
end;
if d>0 then write(f,`co `,d,` cap tu 1 den `,n ) else
write(f, ` khong co cap so huu nghi nao tu 1 den `,n);
close(f);
end.