<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var M:=ReadInteger('M=');
var (s,n):=(0,1);
while s<=M do begin
s+=n*n; n+=1
end;
Writeln('Сумма ',s)
end.
A12, так как в только в ней нет знака абсолютной адресации($)
Узнаем, насколько сместится чертёжник после выполнения цикла (вторая и третья команда):
x = (3 + 1) × 3 = 12
y = (3 - 2) × 3 = 3
После выполнения всего алгоритма (без команды 1):
x = 12 - 6 = 6
y = 3 + 9 = 12
Чертёжник вернётся в исходную позицию, если задать команду так, чтобы при выполнении этой команды трижды (ведь цикл повторяется три раза) чертёжник сместился на (-6, -12).
x = -6 ÷ 3 = -2
y = -12 ÷ 3 = -4
Ответ: (-2, -4)