Cho trước hai số nguyên dương m và n với 1< m ≤ 10¹⁵ ; 1 < n ≤ 10⁷ . Hãy xác định có bao nhiêu cặp số nguyên dương (p; q) thỏa mãn đồng thời cả 3 điều kiện: p < m; q < n và phân số (m+p)/(n+q) có giá trị là một số nguyên.

Dữ liệu vào:

Dòng thứ nhất chứa số nguyên dương m (1< m ≤ 10¹⁵)
Dòng thứ hai nguyên dương n (1< n ≤ 10⁷)

Kết quả:

Ghi ra một số nguyên k là số cặp số nguyên dương (p;q) thỏa yêu cầu trong đề bài

Ví dụ

Input

5
3

Output

1

Giải thích: Chỉ có 1 cặp số (p;q) thỏa mãn là (3;1)  

var n,k:int64;
    i,d:longint;
begin
        readln(n);
        k:=trunc(Sqrt(n));
        i:=2;
        res:=1;
        while i<=k do
        begin
                d:=0;
                while n mod i=0 do
                begin
                        write(i);
                        n:=n div i;
                        if n>1 then write('*');
                        inc(d);
                end;
                k:=trunc(sqrt(N));
                i:=i+1;
        end;
        if n>1 then write(n);
        readln;
end.

31 vòng lặp nhe

uses crt;

var n:string;

i,l:longint;

begin 

clrscr;

read(n);

for i := 1 to length(n) do 

case n[i] of

'A'..'Z' : n[i]:=chr(ord(n[i])+32);

end;

write(n);

end.

Comment 5: Phần thưởng

Comment 4: Phần thưởng

Commet 3: Phần thưởng 

Comment 2: Phần thưởng

Comment 1: Phần thưởng