<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger('Количество элементов в массиве:');
var a := ArrGen(n, i -> i.IsEven ? 2 * i + 3 : 1);
a.Println
end.
<h3>Количество элементов в массиве: 13</h3><h3>3 1 7 1 11 1 15 1 19 1 23 1 27</h3>
uses Robot;
begin
Task('cif2');
while FreeFromRight do begin
Right;
if WallFromUp or WallFromDown then Paint;
end;
end.
1) 21122
То есть 1+2^2^2++2+2
<span>Прочитай в обратном порядке. Ткафетра-артефакт, ткнитсни-инстинкт, тицратна-антрацит (в слове тицратна опечатка), ланигиро-оригинал. Слова написаны справа налево, т.е. наоборот. (правило шифрования)</span>