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

0 голосов
24 просмотров

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


image

Информатика (25 баллов) | 24 просмотров
Дан 1 ответ
0 голосов

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.