bgd 2011-05-15 22:29:00
点我顶贴
收藏
删除
var
n,m,i,sum1,sum2:longint;
c,d,x,y:double;
ch:char;
a,b:array[0..100000] of longint;
begin
readln(n,m);
for i:=1 to n do
begin
read(a[i]);
sum1:=sum1+a[i];
end;
for i:=1 to m do
begin
read(b[i]);
sum2:=sum2+b[i];
end;
ch:=chr(39);
if m=0 then begin writeln('can'); halt; end;
if n=0 then begin writeln('can',ch,'t'); halt; end;
x:=sum1/n; y:=sum2/m;
for i:=1 to n do
c:=c+sqr(a[i]-x);
c:=c/n;
for i:=1 to m do
d:=d+sqr(b[i]-y);
d:=d/m;
if(n>m)and(x>y)and(c<d)then writeln('can')
else writeln('can',ch,'t');
end.