数对游戏

题目背景

小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.