Pascal abc 10 пример uses robot )мне надо на оценку либо мне поставят 2 за четверть )0)

194

304

Посмотреть ответы 2

Ответы на вопрос:

zhansaya77

Информатика

4,8(99 оценок)

Вот программа с елкой: uses graphabc; begin setwindowsize(600,400); line(250,100, 300,50); lineto(350,100); lineto(250,100); floodfill(300,70, clgreen); line(220,200, 300,100); lineto(380,200); lineto(220,200); floodfill(300,150, clgreen); line(200,300, 300,200); lineto(400,300); lineto(200,300); floodfill(300,250, clgreen); rectangle(290, 300,310, 320); floodfill(300,305, clbrown); line(0, 300, 100, 350); lineto(200, 320); lineto(400, 320); lineto(600, 370); lineto(600,400); lineto(0,400); lineto(0