Чертёжнику был дан для ис¬пол¬не¬ния сле¬ду¬ю¬щий алгоритм:
Повтори 3 paза
Сместиться на (1, 1) Сме¬стить¬ся на (2, 2) Сме¬стить¬ся на (1, −3) Конец
Какую ко¬ман¬ду надо вы¬пол¬нить Чертёжнику, чтобы вер¬нуть¬ся в ис¬ход¬ную точку, из ко¬то¬рой он начал движение?
1) Сместиться на (12, 0)
2) Сместиться на (0, 12)
3) Сместиться на (0, −12)
4) Сместиться на (−12, 0)
перо Сместиться в точку (1,7) Сместиться в точку (1,5) Поднять перо Сместиться на вектор (0,-2) Опустить перо Сместиться на вектор (2,0) Сместиться в точку (3,5) Сместиться на вектор (-2,0) Поднять перо Сместиться в точку (4,5) Опустить перо Сместиться на вектор (2,0) Поднять перо Сместиться в точку (5,6) Опустить перо Сместиться в точку (5,4) Поднять перо Сместиться в точку (7,3) Опустить перо Сместиться на вектор (2,0) Сместиться на вектор (0,4) Сместиться в точку (7,7) Сместиться в точку (7,5) Сместиться в точку (9,5) Поднять перо В ответе укажите только число, без пробелов и каких-либо знаков препинания, например 100 ответ:
Объяснение:
program z1;
uses graphABC;
begin
SetWindowSize(600,400);
SetWindowTitle('¨ëêà');
SetPenWidth(3);
SetPenColor(clBlack);
Line(250,100,300,50);
Line(300,50,350,100);
Line(350,100,250,100);
FloodFill(300,75,clGreen);
Line(235,200,300,100);
Line(300,100,365,200);
Line(365,200,235,200);
FloodFill(300,175,clGreen);
Line(200,300,300,200);
Line(300,200,400,300);
Line(400,300,200,300);
FloodFill(300,275,clGreen);
MoveTo(0,300);
LineTo(100,350);
LineTo(200,325);
LineTo(400,325);
LineTo(500,350);
LineTo(600,375);
FloodFill(15,375,clLime);
Rectangle(287,300,313,325);
FloodFill(300,315,clBrown);
SetBrushColor(clYellow);
Circle(500,100,50)
end.
Объяснение:
картинка