Ответы
Ответ дал:
17
Ответ:
uses graphabc;
begin
SetPenWidth(3);
MoveTo(100,50);
LineTo(150,200);
LineTo(100,400);
LineTo(200,200);
LineTo(200,150);
LineTo(100,50);
FloodFill(150,150, clGray);
MoveTo(200,150);
LineTo(300,100);
LineTo(350,50);
LineTo(500,100);
LineTo(550,150);
LineTo(550,200);
LineTo(500,250);
LineTo(350,300);
LineTo(300,250);
LineTo(200,200);
Line(300,100,500,100);
FloodFill(350,90, clGray);
Line(300,250,500,250);
FloodFill(350,290, clGray);
SetBrushColor(clGray);
Circle(500,150,10);
SetBrushColor(clBlack);
Circle(500,150,4);
Rectangle(550,150,557,200);
SetBrushStyle(bsDiagCross);
FloodFill(250,150, clGray)
end.
Объяснение:
картинка
Приложения:
![](https://st.uroker.com/files/ef7/ef71085d1c38e96f1121ef7fa82d4084.png)
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад