测评机： Xeond[6]

得分： 40分

提交日期： 2008-8-22 17:39:00

有效耗时： 219毫秒

测试结果1: 通过本测试点|有效耗时172:ms

测试结果2: 通过本测试点|有效耗时47:ms

测试结果3:

测试结果4: 运行错误|浮点操作上界溢出

测试结果5: 运行错误|浮点操作上界溢出

提交代码：

var

n,m,i,j:integer；

a,b:array[1..18511]of longint；

x,o,p,q,r:real；

flaga,flagb,flagc:boolean；

begin

read(n,m)；

for i:=1 to n do

read(a[i])；

for j:=1 to m do

read(b[j])；

flaga:=true；flagb:=true；flagc:=true；

if m>=n

then flaga:=false；

for i:=1 to m do

x:=x+b[i]；

if m<>0

then o:=x/m； x:=0；

for j:=1 to n do

x:=x+a[i]；

if n<>0

then p:=x/n

else flagb:=false；

if (p<=o)and(n<>0)and(m<>0)

then flagb:=false； x:=1；

for i:=1 to m do

x:=x*(b[i]-o)*(b[i]-o)；

if m<>0

then q:=x/m

else flagc:=true； x:=1；

for i:=1 to n do

x:=x*(a[i]-p)*(a[i]-p)；

if n<>0

then r:=x/n

else flagc:=false；

if (r>=q)and(n<>0)and(m<>0)

then flagc:=false；

if flaga and flagb and flagc

then writeln(’can’)

else writeln(’can’,’t’)；

end.