Question

Получить векторное представлкние всех десятичных цифр в стандарте почтового индекса ( как пишут на конвертах) цифры от 0 до 9 , я вас умоляю, я честно не знаю как это делать, мозг уже сломала вас, я выберу вас лучшим ответам если !

Answer 1

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
uses GraphABC;
begin
  Pen.Width:=3;
  // 0
  DrawRectangle(20,20,70,120);
  // 1
  Line(90,70,140,20);
  Line(140,20,140,120);
  // 2
  MoveTo(160,20);
  LineTo(210,20);
  LineTo(210,70);
  LineTo(160,120);
  LineTo(210,120);
  // 3
  MoveTo(230,20);
  LineTo(280,20);
  LineTo(230,70);
  LineTo(280,70);
  LineTo(230,120);
  // 4
  MoveTo(300,20);
  LineTo(300,70);
  LineTo(350,70);
  Line(350,20,350,120);
  // 5
  MoveTo(70,140);
  LineTo(20,140);
  LineTo(20,190);
  LineTo(70,190);
  LineTo(70,240);
  LineTo(20,240);
  // 6
  Line(90,190,140,140);
  DrawRectangle(90,190,140,240);
  // 7
  MoveTo(160,140);
  LineTo(210,140);
  LineTo(160,190);
  LineTo(160,240);
  // 8
  DrawRectangle(230,140,280,240);
  Line(230,190,280,190);
  // 9
  DrawRectangle(300,140,350,190);
  Line(350,190,300,240)
end.