|
|
вернуться в форумCan you give me some test, please!
Here is my code, I do not know, where can here mistake be!!!
type
smalls=string[30];
var
s:smalls;
a:array[1..1024]of smalls;
k:array[1..1024]of longint;
n,i,j,max:longint;
begin
readln(n);
max:=1;
for i:=1 to n do
max:=max*2;
n:=max;
max:=1;
for i:=1 to n do begin
readln(s);
s:=copy(s,pos(' ',s)+1,length(s));
j:=1;
while ((a[j]<>'') and (a[j]<>s)) do begin
inc(j);
end;
if (a[j]<>s) then
a[j]:=s;
inc(k[j]);
if (k[j]>k[max]) then
max:=j;
end;
i:=0;
while (k[max]<=n div 2) do begin
n:=n div 2;
inc(i);
end;
write(i);
end.
Sorry for my bad english!!!
Edited by author 18.12.2007 15:00 smalls=string[30]---> smalls=string[100]...
a:array[1..1024]of smalls---->a:array[1..1100]of smalls
k:array[1..1024]of longint--->k:array[1..1100]of longint
Lmrs +1 ))) |
|
|
