В цикле чертежник сначала смещается на <span> (–2, –3) потом на (3, 4).
В итоге за одну итерацию он сместится на (-2 + 3, -3 + 4) = (1, 1).
Цикл повторится 3 раза.
Тогда за 3 итерации ч</span><span>ертёжник </span><span>переместится на (3, 3).
А потом ещё на (-4, -2) и окажется в точке (3 - 4, 3 - 2) = (-1, 1).
Чтобы </span><span>вернуться в исходную точку нужно сместится на (1, -1).
Таким образом, он окажется в исходной точке.
Ответ: 1)</span>
Там есть спец панель для этого
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
// заполним информацию случайным образом;
// если хорошистов в результате не окажется,
// просто перезапускаем задачу
randomize;
var a:=MatrRandom(13,10,4,5); // везде только 4 и 5
for var i:=1 to 20 do // раскидаем 20 троек
a[Random(13),Random(10)]:=3;
a.Println(2); Writeln;
// собственно, решение
var k:=0;
foreach var r in a.Rows do
if r.All(x->x<>3) and not r.All(x->x=5) then k+=1;
Writeln(k,' хорошистов')
end.
<u>Пример</u>
5 5 4 4 4 5 3 3 4 4
5 4 4 4 3 4 5 5 4 5
5 5 5 3 5 4 4 5 5 4
3 5 4 3 4 4 5 5 5 3
5 3 4 4 5 4 4 5 5 4
3 5 5 5 5 4 4 4 4 3
4 4 5 3 5 4 4 5 4 5
4 5 4 4 4 4 4 4 5 4
3 5 3 4 4 4 4 4 5 3
5 5 4 5 4 4 4 5 4 5
4 5 4 5 4 5 3 4 5 5
4 5 4 4 4 4 5 4 4 5
4 3 5 4 4 4 5 5 3 5
3 хорошистов
1 048 576 строк и 16 384 столбца
отсюда ячеек получаем 1048576*16384=17179869184
Рабочая область, Панель инструментов, Палитра