Очень просто я помогаю товарищу с математикой и товарищ очень рад источник информации это человек который знает математику и отправляет ответ через компьютер или телефон
Использовать Робот
алг
нач
влево
нц пока снизу свободно
периметр
мост
кц
кон
алг мост
нач
вниз
влево
нц пока снизу не свободно
если слева свободно
то
влево
все
кц
кон
алг периметр
нач
закрасить
вправо
нц пока снизу не свободно
закрасить
вправо
кц
закрасить
вниз
нц пока слева не свободно и снизу свободно
закрасить
вниз
кц
закрасить
влево
нц пока сверху свободно
закрасить
вверх
кц
нц пока сверху не свободно
закрасить
влево
кц
закрасить
вверх
закрасить
вправо
нц пока снизу не свободно
вправо
кц
вниз
нц пока слева не свободно
вниз
кц
кон
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(50,-50,50); a.Println;
Writeln('k=',a.Where(x->x.IsEven and (x mod 3<>0)).Count)
end.
<u>Пример</u>
46 39 16 14 -16 -35 -34 -38 5 16 -13 -19 48 18 -33 -37 3 -41 46 38 15 21 50 50 21 -29 -34 4 -31 -18 31 -2 26 45 -8 1 13 29 -35 -46 25 -38 -13 23 14 -17 -30 35 9 -34
k=20
Залить в 7 3 +
-ртг89лаблдл