Hướng dẫn giải của DIV A AND 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ả:
Sử dụng công thức.
Bình luận
var n,a,b:longint; begin read(n,a,b); write(n div (a*b)); end.
var n,a,b,t:int64; function bcnn(x,y:int64):int64; var sd:longint; begin t:=x*y; while y<>0 do begin sd:=x mod y; x:=y; y:=sd; end; exit(t div x); end; begin read(n,a,b); write(n div bcnn(a,b)); end. đừng làm mất đóng góp nx em xin đấy:)))
var n,a,b,t:int64; function bcnn(x,y:int64):int64; var sd:longint; begin t:=x*y; while y<>0 do begin sd:=x mod y; x:=y; y:=sd; end; exit(t div x); end; begin read(n,a,b); write(n div bcnn(a,b)); end. coems:))