Помогите начертить Ёлочку в ПАСКАЛЕ АбС .

Помогите начертить Ёлочку в ПАСКАЛЕ АбС .
Гость
Ответ(ы) на вопрос:
Гость
program z1; uses GraphABC; begin setpencolor(clgreen); line(30,50,60,20); line(60,20,90,50); line(90,50,30,50); line(30,80,60,50); line(60,50,90,80); line(90,80,30,80); line(30,110,60,80); line(60,80,90,110); line(90,110,30,110); floodfill(60,40,clgreen); floodfill(60,70,clgreen); floodfill(60,100,clgreen); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы