Могу примерный план , может , что то пригодится.
<span>1. Женя купила семь баранок. 2. Собака съела все баранки. 3. Старушка дала Жене цветик-семицветик. 4. Женя загадала желание и оказалась дома. 5. Она оторвала второй лепесток. 6. Вазочка стала целой. 7. Женя пошла во двор. 8. Она загадала желание и очутилась на Северном полюсе. 9. Женя оторвала четвертый лепесток и вернулась во двор. 10. Она загадала, чтобы появилось много игрушек. 11. Куклы, машинки, мячики заполнили все улицы. 12. Женя оторвала шестой лепесток. 13. Игрушки пропали. 14. Женя увидела больного мальчика на скамейке. 15. Женя загадала желание. 16. Мальчик выздоровел.</span>
На каждой итерации цикла если текущий элемент массива больше 6, к m добавляется 2. В массиве 5 элементов, больших 6 (Tok[1]=10, Tok[2]=14, Tok[3]=15, Tok[5]=12, Tok[10]=10), поэтому m увеличится на 2 * 5 = 10. Поскольку сначала m = 0, после выхода из цикла m = 10, это значение и будет выведено на экран.
Ответ. 10
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var a:=ArrRandom(100,-50,50); a.Println;
a.Transform(t->t.IsOdd?t*t:t); a.Println
end.
<u>Пример</u>
46 39 19 26 29 21 12 41 -46 33 10 -38 -6 -46 -4 11 -36 41 15 8 46 31 23 47 -28 26 22 -34 -29 44 40 -18 -15 0 10 -46 25 -41 29 -41 1 -31 -35 -46 15 -39 6 41 -38 49 -16 7 -8 10 19 -36 -35 22 3 -48 49 -5 20 -40 43 -22 28 45 -5 -8 37 -46 -38 5 -44 26 16 19 -18 -39 -30 31 -46 -28 9 -18 40 25 31 -5 39 -48 7 26 -40 -44 0 -46 -39 -13
46 1521 361 26 841 441 12 1681 -46 1089 10 -38 -6 -46 -4 121 -36 1681 225 8 46 961 529 2209 -28 26 22 -34 841 44 40 -18 225 0 10 -46 625 1681 841 1681 1 961 1225 -46 225 1521 6 1681 -38 2401 -16 49 -8 10 361 -36 1225 22 9 -48 2401 25 20 -40 1849 -22 28 2025 25 -8 1369 -46 -38 25 -44 26 16 361 -18 1521 -30 961 -46 -28 81 -18 40 625 961 25 1521 -48 49 26 -40 -44 0 -46 1521 169
<u>№2</u>
begin
var a:=ArrGen(50,i->Sqr(i+1)); a.Println;
Range(1,50,2).ForEach(i->begin a[i]*=a[i] end); a.Println
end.
<u>Результат</u>
1 4 9 16 25 36 49 64 81 100 121 144 169 196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841 900 961 1024 1089 1156 1225 1296 1369 1444 1521 1600 1681 1764 1849 1936 2025 2116 2209 2304 2401 2500
1 64 9 4096 25 46656 49 262144 81 1000000 121 2985984 169 7529536 225 16777216 289 34012224 361 64000000 441 113379904 529 191102976 625 308915776 729 481890304 841 729000000 961 1073741824 1089 1544804416 1225 2176782336 1369 3010936384 1521 4096000000 1681 5489031744 1849 7256313856 2025 9474296896 2209 12230590464 2401 15625000000
Натуральные числа - это числа используемые при счете. т.е. от 1 до бесконечности.
ответ 2015 (если влючать 1 и 2015, иначе 2013)