WCALC - Tính sai
Tác giả: ladpro98
Ngôn ngữ: Pascal
program wcalc;
uses math;
var b,n,a,res:int64;
m:longint;
procedure input;
var inp:text;
begin
assign(inp,'');
reset(inp);
readln(inp,b,n);
close(inp);
end;
procedure process;
var g:longint;
begin
for m:=1 to 2*n do
if m<>n then
if (b*m*(2*n-m)) mod sqr(n) = 0 then
inc(res);
end;
begin
input;
process;
write(res);
end.