Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
var a,b,n: longint;
////
function gcd(a,b: longint): longint;
var tam: longint;
begin
while b > 0 do
begin
tam:= a;
a:= b;
b:= tam mod b;
end;
gcd:= a;
end;
////
function lcm(a,b: longint): longint;
begin
lcm:= (a*b) div gcd(a,b);
end;
////
begin
read(a,b,n);
write(n div lcm(a,b));
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
uses crt;
var a,b,n:longint;
function ucln(a,b:longint):longint;
begin
if b=0 then exit(a)
else exit(ucln(b,a mod b));
end;
function bcnn(a,b:longint):int64;
begin
exit((a*b) div ucln(a,b));
end;
begin
clrscr;
readln(a,b,n);
write(trunc(n/(a*b))-trunc(bcnn(a,b)/(a*b))+1);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
tính ra toán 10 hữu dụng phết :))
write(trunc(n/(a*b))-trunc(bcnn(a,b)/(a*b))+1); phức tạp v
Phức tạp j đâu :)) nếu viết == toán thì nó cũng khá dễ hiểu
n div bcnn(a,b) chắc là đc mà
Hỏi th Việt nó ko trả lời chứ ko cũng định làm như thế rồi :v
Bảng tin
878
16104
458
ukm
2286
19805
2193
oke
1420
28354
467
Ủa m trai hả @uyenvu :)) tưởng gái ko :)))
878
16104
458
:)))
878
16104
458
có fb ko em
2286
19805
2193
Có anh =))
878
16104
458
:)))) kb
2286
19805
2193
ID : 100087979599352