bai 1: Một cặp số nguyên dương (a, b) được gọi là một cặp số bạn bè nếu tổng các ước của a (giá trị của ước lớn hơn 0 và không tính a) bằng b và tổng các ước c
bai 1: Một cặp số nguyên dương (a, b) được gọi là một cặp số bạn bè nếu tổng các ước của a (giá trị của ước lớn hơn 0 và không tính a) bằng b và tổng các ước của b (giá trị của ước lớn hơn 0 và không tính b) bằng a. Ví dụ: 220 và 284 là một cặp số bạn bè vì tổng các ước của 220 là: 1 + 2 + 4 + 5 + 10 + 11 + 20 + 22 + 44 + 55 + 110 = 284 và tổng các ước của 284 là: 1 + 2 + 4 + 71 + 142 = 220. Yêu cầu: Cho hai số nguyên dương L và R (L ≤ R). Hãy đếm số lương cặp (a, b) mà L ≤ a, b ≤ R và là cặp số bạn bè, cặp (a, b) và cặp (b, a) được tính là một. Dữ liệu vào PAIRSFR.INP gồm một dòng duy nhất chứa hai số nguyên dương L và R (L ≤ R ≤ 10^6). Kết quả ra PAIRSFR.OUT ghi ra số cặp số bạn bè. Ví dụ: PAIRSFR.INP PAIRSFR.INP 220 284 1 Ràng buộc: - 30% số điểm ứng với 30% số test có L ≤ R ≤ 1000; - 30% số điểm ứng với 30% số test có L ≤ R ≤ 80000; - 40% số điểm ứng với 30% số test có L ≤ R ≤ 10^6 bai 2 Trên một con đường thẳng có độ dài là n mét, người ta đã đánh số từ đầu đường đến cuối đường theo từng mét một, điểm xuất phát đầu đường được đánh số 0 và sau đó là 1, 2,..., n. Tại các vị trí 0, a và n người ta đã trồng ba cột đèn. Yêu cầu: Hãy tính xem cần trồng thêm ít nhất bao nhiêu cột đèn tại các vị trí nguyên đã được đánh số trên đường sao cho khoảng cách giữa các cột đèn cách đều nhau. Dữ liệu vào: Từ tệp văn bản DENDUONG.INP chỉ một dòng ghi hai số nguyên a và n (0
Lời giải 1 :
Bài 1:
uses crt;
type int = longint;
var l, r, i, res: int;
a: array[0..1000000] of int;
procedure init(n: int);
var i, j: int;
begin
for i:=1 to n do begin
for j:=1 to n div i do
inc(a[i * j], i);
dec(a[i], i);
end;
end;
begin
clrscr;
readln(l, r);
init(r);
for i:=l to r do begin
if (a[i] >= l) and (a[i] <= r) then
if (a[a[i]] = i) and (i < a[i]) then inc(res);
end;
writeln(res);
readln;
end.
Bài 2:
uses crt;
type int = longint;
var a, n: int;
function gcd(a, b: int): int;
var r: int;
begin
while b <> 0 do begin
r:=a mod b;
a:=b; b:=r;
end;
exit(a);
end;
begin
clrscr;
readln(a, n);
writeln(n div gcd(a, n) - 2);
readln;
end.
Thảo luận
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK