Составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром.

паскаль. чем скорее, тем лучше!

Question

Информатика

Максимильян

19 декабря, 15:33

Составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром.

паскаль. чем скорее, тем лучше!

+1

Ответы (1)

Знаете ответ?

Йов · Answer 1

Uses graphabc;

var x, y, r:integer;

begin

clearWindow (clViolet) ;

setBrushColor (clGreen) ;

x:=22; y:=22; r:=20;

while x<660 do

begin

circle (x, y, r) ;

x:=x+40;

end;

end.

Составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром.паскаль. чем скорее, тем лучше!

Составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром.

паскаль. чем скорее, тем лучше!