Нужно написать задание в поскале. Елочка на 3 триугольника, линиями, в цвете.
Нужно написать задание в поскале. Елочка на 3 триугольника, линиями, в цвете.
Гость
Ответ(ы) на вопрос:
Гостьprogram p;
uses crt,graph;
var
D,M:INTeGeR;
begin
clrscr;
initgraph(d,m,'');
setcolor(green) ;
line(200,420,300,420);
line(300,420,250,330);
line(250,330,200,420);
line(200,330,300,330);
line(300,330,250,240);
line(250,240,200,330);
line(200,240,300,240);
line(300,240,250,140);
line(250,140,200,240);
readkey;
end.
Не нашли ответ?
Похожие вопросы