Ответы
Ответ дал:
0
Ответ:
Вот))
Объяснение:
Приложения:
![](https://st.uroker.com/files/70f/70fd332b2339dc4f40f6a51c14469aea.png)
Ответ дал:
0
Відповідь:
uses
Graph;
var
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
begin
grDriver:=Detect;
InitGraph(grDriver, grMode, '');
Line(180, 130, 270, 130);
Line(180, 130, 180, 160);
Line(270, 130, 270, 160);
{Дуло}
Line(270, 143, 370, 143);
Line(270, 147, 370, 147);
Line(370, 143, 370, 147);
Line(140, 160, 310, 160);
Line(140, 190, 310, 190);
Arc(140, 175, 90, 270, 15);
Arc(310, 175, 270, 90, 15);
Circle(155, 175, 10);
Circle(190, 175, 10);
Circle(225, 175, 10);
Circle(260, 175, 10);
Circle(295, 175, 10);
ReadLn;
CloseGraph;
end.
Пояснення:
Вводи в паскаль ети значения.
Приложения:
![](https://st.uroker.com/files/70f/70fd332b2339dc4f40f6a51c14469aea.png)
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад