Составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром.
паскаль. чем скорее, тем лучше!
Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад