讨论 / 为何第五个点过不去
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.

查看更多回复
提交回复