Рабочее место участника

Интерактивные задачи
Олимпиадные задачи на русском языке
Эвристические и приближенные методы

13/09/2010

Заочный тур личного первенства (B)

Ограничения: время – 200ms/500ms, память – 64MiB Ввод: input.txt или стандартный ввод Вывод: output.txt или стандартный вывод
Послать решение Blockly Посылки Темы Где Обсудить (0)

int calc(int n); // С/С++
function calc(n:integer):integer; // Pascal

int compare(int k, int left[], int right[]); // С/С++
function compare(k:integer; left, right:array of integer):integer; // Pascal

int calc(int n)
{ int left[1000],right[1000],i,k=1;
  left[0]=1;
  for(i=2; i<=n; ++i)
  { right[0]=i;
    if(compare(1,left,right)==0) ++k;
  }
  return k;
}

var left,right:array[1..1000] of integer;
function calc(n:integer):integer;
var i,k:integer;
begin
  k:=1;
  left[1]:=1;
  for i:=2 to n do
  begin
    right[1]:=i;
    if compare(1,left,right)=0 then
      inc(k);
  end;
  calc:=k;
end;