Question

Нужна помощь срочно!!! Осталось 40 мин. до здачи!!! Прошу помогите!!!
выполнить 1 задание из 9
надо написать программу в паскале

d0020b254dee2d3b5af107d9de0314f9.pdf

Answer 1

Ответ:

uses graphabc;

begin

SetPenWidth(2);

SetPenColor(clDarkBlue);

line(170,400,470,400);

line(120,300,520,300);

line(120,300,170,400);

line(520,300,470,400);

circle(190,350,25);

circle(255,350,25);

circle(320,350,25);

circle(385,350,25);

circle(450,350,25);

rectangle(150,280,490,300);

rectangle(175,210,245,280);

floodfill(180,215,clblue);

rectangle(285,140,355,280);

floodfill(290,145,clblue);

rectangle(395,210,465,280);

floodfill(400,215,clblue);

end.

Объяснение:

Смотри картинку