• В Pascal ABC.net нужно нарисовать 5 кругов с увеличивающимся радиусом. Круги как у снеговика ( нижний - самый большой, а соответственно верхний - самый маленький)

    uses crt,GraphABC;
    var x,y,radius,radius1,c,t,n:integer;
    begin
    setwindowsize(300,500);
    x:=200;
    y:=30;
    radius:=20;
    t:=50;
    for c:=1 to 5 do
    begin
    radius1:=radius+10*c;
    n:=t+20;
    circle(x,y+n*c,radius1);
    end;
    end.

Ответы 0

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years