написать код (нужно получить следующее изображение) : from canvas import Canvas
from point import Point
from lines import *
from polygons import *

class Smiley(Shape):
def __init__(self, bl_point, width, color="black"):
super().__init__(color)
self.bl_point = bl_point
self.width = width

def draw(self, canvas):
pass

size = 500
canvas = Canvas(size, size)

Smiley(Point(50, 50), 200).draw(canvas)
Smiley(Point(300, 400), 50, "red").draw(canvas)
Smiley(Point(400, 100), 30, "green").draw(canvas)
Smiley(Point(100, 300), 100, "blue").draw(canvas)

canvas.save("q2.png")

Пояснение:

Нам дан путь к каталогу "Системное".

C:\Информатика\Программное обеспечение\Системное.

Из этого следует, что каталог "Системное" находится в каталоге "Программное обеспечение", который в свою очередь находится в каталоге "Информатика", который находится на диске C.

Подняться на один уровень вверх - это значит перейти в католог, который находится выше выбранного нами каталога.

Спуститься же на один уровень вниз - значит перейти в каталог который находится ниже выбранного нами каталога.

Вообще все эти каталоги можно рассмотреть как корни дерева: один толстый корень (диск С) начинает разделяться на многие другие корни (каталоги).

Исходя из этих пояснений решим задание.

C:\Информатика\Программное обеспечение\Системное.

Если мы поднимаемся на один уровень вверх, значит мы переходим из каталога "Системное" в каталог который находится выше, то есть в "Программное обеспечение".

Далее мы поднимаемся ещё на один уровень вверх: переходим из каталога "Программное обеспечение" в каталог "Информатика".

Далее мы опускаемся на один уровень вниз: из каталога "Информатика" переходим в каталог "7класс". И мы ещё раз опускаемся из каталога "7класс" в файл "Задания.doc".

Нам остаётся только выписать путь из диска С в файл "Задания.doc"

C:\Информатика\7класс\Задания.doc.

Вот и всё.

C:\Информатика\7класс\Задания.doc.

Вот и всё.

Если у Вас есть вопросы по заданию - можете задать их мне.

Удачи Вам! :)

1. Современный вариант

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
  var n:=Random(-100,100);
  Writeln('В числе ',n,' количество разрядов равно ',
    abs(n).ToString.Length)
end.

Тестовое решение:
В числе -40 количество разрядов равно 2

2. Школьный вариант (понятный большинству учителей)

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
var
  n,k:integer;
begin
  Randomize;
  n:=Random(201)-100;
  k:=1;
  Write('В числе ',n,' количество разрядов равно ');
  n:=abs(n);
  while n>0 do begin
    n:=n div 10;
    if n>0 then Inc(k)
    end;
  Writeln(k)
end.

Тестовое решение:
В числе -5 количество разрядов равно 1