Pascal abc.! нужно нарисовать бабочку.

zb2004 zb2004    3   05.06.2019 11:40    3

Ответы
НастЮхАforever НастЮхАforever  05.07.2020 23:11
Uses GraphABC;
var  x,y: integer;
begin
pen.Color:=clRed;
Brush.Color :=clRed;
circle(170,200,30);
circle(230,200,30);
circle(150,150,50);
circle(250,150,50);
Brush.Color :=clGold;
Ellipse(190,110,210,230);
Brush.Color :=clDarkGreen;
Line(200,110,180,80);
Line(200,110,220,80);
circle(200,110,10); 
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика