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,d,tam: longint;
begin
//(INPUT,'NTTD.INP'); Reset(INPUT);
//Assign(OUTPUT,'NTTD.OUT'); Rewrite(OUTPUT);
Read(a,b);
If a < b then
begin
tam:= a;
a:= b;
b:= tam;
end;
If a mod b =0 then
begin
d:= a div b;
If ( d > b) and ( d mod b =0 ) then
repeat
d:= d div b;
until ( d <= b) and (d mod b <> 0);
If b mod d = 0 then Write('YES')
else Write('NO');
end
else Write('NO');
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin