Hướng dẫn giải của Div a or b
Chỉ dùng lời giải này khi không có ý tưởng, và đừng copy-paste code từ lời giải này. Hãy tôn trọng người ra đề và người viết lời giải.
Nộp một lời giải chính thức trước khi tự giải là một hành động có thể bị ban.
Nộp một lời giải chính thức trước khi tự giải là một hành động có thể bị ban.
Tác giả:
var n,a,b,na,nb,nab: longint;
Function BCNN(m,n:longint):longint;
var sodu,a,b: longint;
Begin a:=m; b:=n; sodu:= a mod b;
while sodu>0 do begin a:=b; b:=sodu; sodu:=a mod b; end;
exit(m*n div b);
end;
Begin readln(n,a,b);
write(n div a + n div b - n div (BCNN(a,b)));
end.
Bình luận
var n,a,b,na,nb,nab: longint; Function BCNN(m,n:longint):longint; var sodu,a,b: longint; Begin a:=m; b:=n; sodu:= a mod b; while sodu>0 do begin a:=b; b:=sodu; sodu:=a mod b; end; exit(m*n div b); end; Begin readln(n,a,b); write(n div a + n div b - n div (BCNN(a,b))); end.
include <iostream>
using namespace std;
long long gcd(long long a, long long b) { long long m = a; long long z = b; long long k = m % z;
}
long long lcm(long long a, long long b) { return a * b / gcd(a, b); }
int main() { long long a, b, n; cin >> n >> a >> b;
}
var n,a,b,na,nb,nab: longint; Function BCNN(m,n:longint):longint; var sodu,a,b: longint; Begin a:=m; b:=n; sodu:= a mod b; while sodu>0 do begin a:=b; b:=sodu; sodu:=a mod b; end; exit(m*n div b); end; Begin readln(n,a,b); write(n div a + n div b - n div (BCNN(a,b))); end.