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.

Download