Написать программу которая будет выводить на экран 50 кругов, которые будут делать как бы воронку, начиная с самого маленького и дальше (по размеру в смысле 1,2,3 и до 50) в pascalABC.net
как должно получится нарисовал в paint и прикрепил.
Приложения:
![](https://st.uroker.com/files/51d/51d436bf6e9cfa45b5bfc2fd0f5e0454.png)
Ответы
Ответ дал:
2
uses GraphABC;
begin
Window.SetSize(600,600);
var (x,y):=(50,WindowHeight-50);
for var i:=1 to 50 do
DrawCircle(x+5*i,y-5*i,5*i);
end.
begin
Window.SetSize(600,600);
var (x,y):=(50,WindowHeight-50);
for var i:=1 to 50 do
DrawCircle(x+5*i,y-5*i,5*i);
end.
Приложения:
![](https://st.uroker.com/files/aa7/aa7602b93abe3d64f40d383cb9d69b82.png)
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад