Создать процедуру рисующую параллелограмм в Pascal ABC
Uses drawman;
begin
field(20,20);
topoint(4,6);
pendown;
topoint(6,13);
topoint(16,13);
topoint(14,6);
topoint(4,6);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Uses drawman;
begin
field(20,20);
topoint(4,6);
pendown;
topoint(6,13);
topoint(16,13);
topoint(14,6);
topoint(4,6);
end.