数对游戏

题目背景

小C和小Z正在玩一个数对游戏。

题目描述

小C会给出n对整数(a, b)，小Z要找出整数对(x, y)，使x+y=a，x*y=b。请你告诉小Z，是否存在数对(x, y)？

输入输出格式

输入格式：
第一行一个正整数n(≤100,000)，表示小C给出的数对个数。

接下来n行，每行两个整数a, b(|a|,|b|≤10000)，表示数对。

输出格式：
输出n行，对于每个数对(a, b)，如果存在符合条件的数对(x, y)，输出”Yes”，否则输出”No”。

输入输出样例

输入样例#1：
3
9 15
5 4
1 -56
输出样例#1：
No
Yes
Yes

分析：暴力，要多暴力有多暴力。

代码：

var
 n,i,j,a,b,s:longint;
 flag:boolean;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(a,b);
   flag:=true;
   for j:=1 to trunc(sqrt(abs(b))) do
    begin
     if b mod j=0 then
      begin
       s:=j+b div j;
       if (s=a) or (-s=a) then begin writeln('Yes'); flag:=false; break; end;
      end;
    end;
   if flag then writeln('No');
  end;
end.