помогите решить   1и2 пожалуйста

Помогите решить 1и2 пожалуйста

Задать свой вопрос
1 ответ
Uses Drawman;
begin
Task('a2');
  ToPoint(3,2);
  PenDown;
  OnVector(2,2);
  OnVector(-4,2);
  PenUp;
  OnVector(7,-1);
  PenDown;
  OnVector(-3,-1);
  OnVector(2,-3);
  PenUp;
  ToPoint(0,0);
end.

uses Drawman;
begin
  Task('a3');
  ToPoint(2,1);
  PenDown;
  OnVector(4,0);
  PenUp;
  OnVector(-3,1);
  PenDown;
  OnVector(0,3);
  PenUp;
  OnVector(1,-1);
  PenDown;
  OnVector(5,-1);
  PenUp;
  ToPoint(0,0);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт