Codeforces Round #204 (Div. 2)

Problems

 

 

#	Name
A	Jeff and Digits standard input/output 1 s, 256 MB		x2130
B	Jeff and Periods standard input/output 1 s, 256 MB		x1573
C	Jeff and Rounding standard input/output 1 s, 256 MB		x282
D	Jeff and Furik standard input/output 1 s, 256 MB		x101
E	Jeff and Brackets standard input/output 1 s, 256 MB		x5

懒得说太多。

Problem A：恶俗小学数学题……不过虐我足够了，写了9min。因为要求被90整除，分解一下90=10*9。然后就好做了，一定“0”结尾，没有的滚……然后判断是否各位和a满足，9|a，然后乱搞一下，就这样。写完这题，目测200名……

Problem B：满水的T，不过英语渣不说话，今早才发现理解有点问题。迅速搞一搞。嗯，其实也不是什么能说太多的T，只能说英语不要太渣，明确各个变量作用就行了。

Problem C：一开始理解错了……后来才发现真正意思，最初想法是贪心，先排序，小数部分0和0.5的向上、向下去整和原来差一样，主要考虑其他的分配。小于0.5的自然向下，大于0.5的自然向上，这样差别最小。因为向上、向下各有n次操作，将向上、向下操作看成两个组，问题就是如何分配小数部分为0和0.5的到两个组，将某个组多余元素挤到另一个组，使两个组元素都为n个（qsort一下，看起来更简单）。不过码起来有点麻烦。考虑整数部分没什么用，所以将所有数向下取整，然后枚举向上取整的数目，将原小数部分和与枚举值减一下取最小值，就出来了。值得注意的是FPC比较作，小数0.68 这样的它会在读取后储存为0.6899999999……，直接取小数部分不行，需要trunc(round(frac(a)*1000))的操作。

program ta;
var
 a,n,i:integer;
 c:array [0..5] of integer;
begin
 readln(n);
 fillchar(c,sizeof(c),0);
 for i:=1 to n do begin
  read(a);inc(c[a]);
 end;
 if c[0]=0 then writeln(-1)
 else begin
  a:=0;
  for i:=c[5] downto 1 do
   if i*5 mod 9=0 then begin;a:=i;break;end;
  for i:=1 to a do write(5);
  if a=0 then c[0]:=1;
  for i:=1 to c[0] do write(0);
  writeln;
 end;
end.

program tb;
var
 ans,a,n,i:longint;
 p,b:array [1..100000] of longint;
begin
 readln(n);
 for i:=1 to 100000 do b[i]:=maxlongint;
 for i:=1 to n do begin
  read(a);
  if b[a]=-1 then continue;
  if p[a]=0 then
   b[a]:=0
  else begin
   if b[a]=0 then
    b[a]:=i-p[a]
   else
    if i-p[a]<>b[a] then b[a]:=-1;
  end;
  p[a]:=i;
 end;
 for i:=1 to 100000 do
  if (b[i]>-1) and (b[i]<maxlongint) then inc(ans);
 writeln(ans);
 for i:=1 to 100000 do
  if (b[i]>-1) and (b[i]<maxlongint) then writeln(i,' ',b[i]);
end.

program tc;
var
 n,c0,i:integer;
 a:real;
 ans,sum:longint;
begin
 readln(n);c0:=0;sum:=0;
 for i:=1 to 2*n do begin
  read(a);
  if a-trunc(a)<0.0000001 then inc(c0);
  inc(sum,trunc(round(frac(a)*1000)));
 end;
 ans:=maxlongint;
 for i:=0 to n do begin
  if c0+i<n then continue;
  if ans>abs(i*1000-sum) then ans:=abs(i*1000-sum);
 end;
 writeln((ans/1000):0:3);
end.