• Составьте программу по информатике которая имитирует движения голубого шарика радиуса 20 по диагонали

Ответы 2

  • Спасибо,щас проверю и отвечу)
  • uses graphabc; begin   window.Init(0, 0, 600, 600, clwhite);   window.IsFixedSize := true;   pen.Width := 3;   pen.Color := clblue;   lockdrawing;   for var i := 1 to 560 do   begin     drawcircle(20 + i, 20 + i, 20);     redraw;     window.Clear;   end; end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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