<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
uses GraphABC;
begin
Window.SetSize(800,600);
Draw(x->x=1?1.0:10/(x-1)+5*Sin(x),-20.0,20.0)
end.
<u>Результат приведен во вложении</u>
Т.к. всего команд выполнено 40, x из них "Назад 1", а x-8 "Вперёд 2". 2x-8=40, значит 24 команды "Назад 1" и 16 команд "Вперёд 2". Он переместился вперёд на 16*2=32 единиц и назад на 24 единицы, т.е. за выполнение всей программы он переместился вперёд на 32-24=8 единиц. Ответ: Вперёд 8
COUNTRY:
USA : RUSSIA:
INFO : ;washington.txt INFO:
culture.txt industry.txt ; culture.txt
Program data ;
Uses CRT;
var n:integer;
begin
ReadKey;
Writeln('3 июля');
<span>end.</span>