娄山中学noip答案...吧 关注:3贴子:16
  • 3回复贴,共1

a453. TOI2010 第一题:一元二次方程式

只看楼主收藏回复

var
a,b,c,d:real;
i,s:longint;
begin;
while not eof do begin;
readln(s);
for i:=1 to s do begin;
readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln(*No*);
else writeln(*Yes*);
end;
end;
end.


1楼2014-08-22 12:06回复
    这么赤果果的放答案真的好么……


    IP属地:上海来自Android客户端2楼2014-09-04 20:44
    收起回复