• Пожалуйста помогите с Pascal ABC,ни как не могу разобраться. Ну вообщем нужно сделать любой рисунок (не цветной) на 30 программ.

Ответы 1

  • uses drawman;beginfield(14,14);ToPoint(2,2);PenDown;ToPoint(2,8);ToPoint(8,8);ToPoint(8,2);ToPoint(2,2);PenUp;toPoint(5,11);pendown;ToPoint(2,8);ToPoint(8,8);ToPoint(5,11);penup;topoint(4,6);pendown;ToPoint(6,6);ToPoint(6,4);ToPoint(4,4);ToPoint(4,6);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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