Решается по такому принципу: берётся любая клетка на поле и прогоняется через программу. Как работает программа: если внизу свободно, спускаемся вниз до того момента, пока это возможно, затем, если свободно справа - двигаемся вправо пока это возможно. Далее всё повторяется до тех пор, пока мы не окажемся в необходимой нами клетке, либо в тупике (то есть тупиком в данном случае является ситуация, когда и снизу, и справа стена)
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
3. Заполнить массив случайными целыми числами (0-10). Найти сумму четных и нечетных значений.
begin var a:=ArrRandom(ReadInteger('n='),0,10); a.Println; var so:=a.Where(t->t.IsOdd).Sum; var se:=a.Where(t->t.IsEven).Sum; Writeln('Сумма четных значений равна ',so,', нечетных ',se) end.
Красные - не соответствуют требованию
Зелёные - соответствуют
Решается по такому принципу: берётся любая клетка на поле и прогоняется через программу. Как работает программа: если внизу свободно, спускаемся вниз до того момента, пока это возможно, затем, если свободно справа - двигаемся вправо пока это возможно. Далее всё повторяется до тех пор, пока мы не окажемся в необходимой нами клетке, либо в тупике (то есть тупиком в данном случае является ситуация, когда и снизу, и справа стена)
Клеток, удовлетворяющих условию оказалось 22.
ответ: 22