Помогите решыть !!!!

[Джек]

Простая игра
(Время: 1 сек. Память: 16 Мб)

Дед Мазай и заяц играют в очень простую игру. Перед ними – огромная куча из N одинаковых морковок. Каждый из них во время своего хода может взять из этой кучи любое количество морковок, равное неотрицательной степени числа 2, т.е. 1, 2, 4, 8,… . Начинает игру либо дед Мазай, либо заяц. Затем игроки ходят по очереди. Тот, кто возьмет последнюю морковку, тот и выигрывает.

Требуется написать программу, которая при заданных исходных данных определяет победителя в этой игре. При этом следует учитывать, что игроки играют оптимально.
Входные данные

Входной файл INPUT.TXT содержит единственное целое положительное число N (N ≤ 10^250), задающее число морковок в начале игры.
Выходные данные

Выходной файл OUTPUT.TXT должен содержать в первой строке цифру «1», если выиграет тот, кто ходит первым, или цифру «2» – в противном случае. Если игру выиграл тот, кто ходил первым, то во второй строке этого файла должно содержаться минимальное число морковок, которое должен взять игрок, выполнявший ход первым, чтобы гарантировать свою победу.
1)INPUT.TXT
3
OUTPUT.TXT
2
2)INPUT.TXT
8
OUTPUT.TXT
1
2

[matan]

А вы сами пробовали хоть что-то написать

[Джек]

matan писал(а):

А вы сами пробовали хоть что-то написать

пробовал...но значительных продвигань небыло...

[Ham]

Попробуйте blackmagic

program algo(input,output);

var
  s:string;
  i,ans:integer;

begin
ans:=0;
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
readln(s);
for i:=1 to length(s) do
  begin
  inc(ans,ord(s[i])-ord('0'));
  end;
case ans mod 3 of
  0: begin
     writeln('2');
     end;
  1: begin
     writeln('1');
     writeln('1');
     end;
  2: begin
     writeln('1');
     writeln('2');
     end;
  end;
close(input);
close(output);
end.