Question

Написать программу в Pascal ABC, которая при запуске будет отображать прикреплённый рисунок. СРОЧНО!!!!!!!!!!!!!

Answer 1

Ответ:

pascalABC

Объяснение:

uses GraphABC;

begin

 SetPenColor(clRed); SetPenWidth(4); SetPenStyle(psDash); SetBrushColor(clYellow); Circle(300,200,150);

 SetPenColor(clBlack); SetPenWidth(1); SetPenStyle(psSolid); SetBrushColor(clWhite); Circle(250,160,30);

 Circle(350,160,30);

 SetPenColor(clGray); SetPenWidth(2); SetPenStyle(psDot); Polyline((300,200),(320,240),(280,240),(300,200));

 SetPenColor(clDarkBlue); SetPenWidth(3); SetPenStyle(psDashDot); SetBrushColor(clLightGray); Rectangle(230,260,370,290);

end.