• Можете помочь нарисовать рисунок в Pascal ABC.
    ОЧЕНЬ СРОЧНО

    question img

Ответы 1

  • uses DrawMan;var i:integer;begin  Field(22,14);  for i:=1 to 4 do  begin    ToPoint(6,7+i);    PenDown;    OnVector(5,-5);    OnVector(5,5);    OnVector(i,-i);    OnVector(-i,-i);    OnVector(-5,5);    OnVector(-5,-5);    OnVector(-i,i);    OnVector(i,i);    PenUp;  end;end.
  • Добавить свой ответ

Войти через Google

или

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

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

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