Question

Нужна помощь!!! Помогите пожалуйста!!! Найти в файле и выполнить.
Задание. Составить программу, рисующую на экране объект из 8-10
прямоугольников: танк, робот и т.д.
ФАЙЛ НУЖНО СКАЧАТЬ!!!

050e2f26fde68e1a28147defc43974a5.pdf

Answer 1

Ответ:

program robot;

uses graphabc;

begin

brush.Color:=clblack;

rectangle(270,200,370,310);

rectangle(280,130,360,197);

rectangle(280,313,310,395);

rectangle(330,313,360,395);

rectangle(247,200,267,290);

rectangle(373,200,393,290);

rectangle(305,110,310,130);

rectangle(330,110,335,130);

brush.Color:=clwhite;

rectangle(290,150,310,170);

rectangle(330,150,350,170);

rectangle(315,165,325,175);

rectangle(305,180,335,185);

end.

Объяснение:

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