21

Добавьте решебник в свои книги для быстрого доступа в следующий раз
Овчиникова Л. Г.
Ваши друзья не знают про этот решебник.
Урок 22. Задание 3.
Program ship;
uses graphABC;
begin
SetWindowSize(600,500);
SetPenColor(clNavy);
line(0,200,100,300);
line(100,300,500,300);
line(500,300,600,200);
line(600,200,0,200);
line(100,200,200,150);
floodfill(250,250,clNavy);
SetBrushColor(clGray);
rectangle(200,100,350,200);
fillrect(200,100,350,200);
line(350,200,350,50);
SetBrushColor(clRed);
FillRect(350,50,400,70);
SetBrushColor(clGreen);
FillRect(350,70,400,80);
End.
2017 gdzometr | contextus@mail.ru