Question

Информатика(Паскаль)
построить звезду.

Answer 1

Program Zvezda;
Uses GraphABC;
begin SetBrushColor(clred);
Line(290, 111, 240, 190);
 Line(240, 190, 171, 190);
Line(170, 190, 241, 250);
Line(241, 250, 209, 320);
Line(209, 320, 290, 289);
 Line(290, 289, 369, 318);
 Line(369, 318, 340, 248);
Line(340, 248, 410, 190);
 Line(410, 190, 340, 190);
 Line(340, 190, 289, 111);  
Line(289, 113, 289, 289);
 Line(242, 249, 341, 190);
 Line(340, 249, 242, 190);
 Line(171, 191, 290, 220);
Line(291, 220, 411, 191);
Line(209, 319, 290, 222);
Line(290, 222, 369, 321);
Readln;
Closewindow;
End.