Игра со спичками - Pascal ABC

Формулировка задачи:

Двое играют в следующую игру. Из кучки спичек за один ход игрок вытягивает либо 1, либо 2, либо 1000 спичек. Выигрывает тот, кто забирает последнюю спичку. Кто выигрывает при правильной игре? Входные данные Вводится одно натуральное число — N ( 1≤ N ≤ 10000) начальное количество спичек в кучке. Выходные данные Выведите 1, если выигрывает первый игрок (тот, кто ходит первым), или 2, если выигрывает второй игрок. Примеры
входные данные
2
выходные данные
1

входные данные
3
выходные данные
2
Добавлено через 49 секунд
var  n:integer;
 
begin
read(n);
if (n=1) or (n=2) then writeln('1') else
         if n<=999 then
            if n mod 3 = 0 then writeln('2')
            else writeln('1')
            else if (n-1000) mod 3=0 then writeln('1')
            else writeln('2')
end.
Добавлено через 10 минут Но почему-то пишет неправильный ответ в тесте...

Код к задаче: «Игра со спичками - Pascal ABC»

textual
var  n:integer;
 
begin
read(n);
//if (n=1) or (n=2) then write('1') else
         //if n<=999 then
            if n mod 3 = 0 then writeln('2')
            else writeln('1')
            //else if (n-1000) mod 3=0 then write('1')
            //else writeln('2')
end.

8   голосов, оценка 4.125 из 5


СОХРАНИТЬ ССЫЛКУ