佳肴 (Standard IO)

Description

　　佳肴就是非常美味的菜的意思，佳肴最关键的是选择好原料。

　　现在有N种原料，每种原料都有酸度S和苦度B两个属性，当选择多种原料时，总酸度为每种原料的酸度之积，总苦度为每种原料的苦度之和。

　　正如大家所知，佳肴是既不酸也不苦的，因为要保证所选的原料使得总酸度和总苦度差的绝对值最小。
　　由于佳肴不能只有水，所以必须至少选择一种佳肴。

题解：

暴力搜索

代码：

var

  n,min:longint;

  a:array[0..100,1..2] of longint;

  b:Array[0..100,0..100] of longint;

procedure main(x,s,k:longint);

var

  i:longint;

begin

  if (s<>0)and(k<>0) then

    if abs(s-k)<min then

      min:=abs(s-k);

  for i:=x+1 to n do

    main(i,s*a[i,1],k+a[i,2]);

end;

var

  i:longint;

begin

  readln(n);

  for i:=1 to n do

    readln(a[i,1],a[i,2]);

  min:=maxlongint;

  main(0,1,0);

  writeln(min);

end.