Составь программу в АВС паскаль так, чтобы в результате получился рисунок

Составь программу в АВС паскаль так, чтобы в результате получился рисунок
Гость
Ответ(ы) на вопрос:
Гость
Во! uses graphABC; var x,y,z,n:integer; Begin randomize; n:=random(1000)+1; y:=random(n)+123; x:=random(y)+n; z:=x+23; SetWindowSize(n,z); setbrushcolor (clRed); Ellipse(z,y,n,x); floodfill (z,n, clgreen); line(z,x,z,n); line(n,y,n,z); line(x,x,z,n); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы