Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежит куча камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может добавить в кучу 1 камень или 10 камней. У каждого игрока, чтобы делать ходы, есть неограниченное количество камней. Игра завершается в тот момент, когда количество камней в куче становится не менее 31. Победителем считается игрок, сделавший последний ход, то есть первым получивший кучу, в которой будет 31 или больше камней. В начальный момент в куче было S камней, 1 ≤ S ≤ 30.

Найдите два таких значения S, при которых у Пети есть выигрышная стратегия, причём одновременно выполняются два условия:

— Петя не может выиграть за один ход;

— Петя может выиграть своим вторым ходом независимо от того, как будет ходить Ваня.

Опишите выигрышную стратегию Пети для каждого найденного значения S.

Базу не дает добавить

1.
SELECT Перевозки.ДатаОтгрузки, Перевозки.НомерВагона, Перевозки.КодГруза, Перевозки.Стоимость, Перевозки.ДатаВозвратаВагона
FROM Перевозки
WHERE (((Month([ДатаОтгрузки]))>=1 And (Month([ДатаОтгрузки]))<7) AND ((Year([ДатаОтгрузки]))=Year(Date())-1))
ORDER BY Перевозки.ДатаОтгрузки, Перевозки.НомерВагона;

2.
SELECT DISTINCTROW НаименованиеГруза.Наименование, Avg(Перевозки.Стоимость) AS [Avg-Стоимость], Year([Перевозки]![ДатаОтгрузки]) AS [Год отгрузки]
FROM НаименованиеГруза INNER JOIN Перевозки ON НаименованиеГруза.Код = Перевозки.КодГруза
GROUP BY НаименованиеГруза.Наименование, Year([Перевозки]![ДатаОтгрузки]), Перевозки.КодГруза;

3. не знаю как срок считать

4.
SELECT DISTINCTROW Sum(Перевозки.Стоимость) AS [ОбщаяСтоимость перевозок за период]
FROM Перевозки
HAVING (((Перевозки.ДатаОтгрузки) Between [:d1] And [:d2]));

Zadacha_1;
var a,b,c:integer; 
begin   
writeln (' введите число');
    readln(a);
    b:=a mod 10;
    a:=a div 10;
    c:=a mod 10;
    a:=a div 10;
    if (a = b) or (a=c) or (b = c)then writeln ('такие числа есть')
    else writeln('таких чисел нет');
  end.

zadacha_2;
var a:integer; 
begin   
writeln(' введите время в минутах');
    readln(a);
    a:=a mod 10;
   if ((a >= 0) and  (a <= 3)) or ((a > 5) and  (a <= 8))  then writeln('зелёный');   
   if ((a > 3) and  (a <= 5)) or ((a > 8) and  (a < 0))  then writeln('жёлтый');
end.