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

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

Question

Информатика

Христиан

2 марта, 11:55

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

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

+3

Ответы (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 окружностей зелёного цвета разных радиусов с одним центром.

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