Конечно, я готов вам доделать код для рисования многоугольника и выбора цвета. Вот исправленный код:
```python
from tkinter import *
from tkinter.colorchooser import askcolor
root = Tk()
canvas = Canvas(root, width=400, height=400, bg='white')
canvas.pack()
canvas.old_coords = None
polygon = None
bgcolor = 'white'
def paint_color():
global bgcolor
color = askcolor(title="Choose color")[1]
if color:
bgcolor = color
def paint(event):
global polygon
if canvas.old_coords:
x1, y1 = canvas.old_coords
x2, y2 = event.x, event.y
canvas.create_line(x1, y1, x2, y2, fill=bgcolor)
canvas.old_coords = x2, y2
else:
canvas.old_coords = event.x, event.y
if polygon:
canvas.delete(polygon)
coords = list(canvas.coords(canvas.find_all()[0]))[:-2]
coords = [(coords[i], coords[i+1]) for i in range(0, len(coords), 2)]
coords.append((event.x, event.y))
polygon = canvas.create_polygon(coords, outline=bgcolor, fill='', width=3)
def clear():
canvas.delete('all')
def save():
x = root.winfo_rootx() + canvas.winfo_x()
y = root.winfo_rooty() + canvas.winfo_y()
x1 = x + canvas.winfo_width()
y1 = y + canvas.winfo_height()
ImageGrab.grab().crop((x, y, x1, y1)).save("screenshot.png")
button_color = Button(root, text="Color", command=paint_color)
button_color.pack(side=LEFT, padx=5)
button_clear = Button(root, text="Clear", command=clear)
button_clear.pack(side=LEFT, padx=5)
button_save = Button(root, text="Save", command=save)
button_save.pack(side=LEFT, padx=5)
canvas.bind('<B1-Motion>', paint)
root.mainloop()
```
Изменения включают добавление кнопки "Color" для выбора цвета, которая вызывает диалоговое окно выбора цвета. Также изменен код для окраски многоугольника - теперь цвет можно выбирать через глобальную переменную `bgcolor`.
По поводу кнопки "Save", проблема заключается в том, что вы сохраняете весь холст, включая фон и кнопки. Вместо этого нужно сохранять только рисунок, который находится на холсте. Для этого можно использовать модуль `PIL`:
```python
from PIL import ImageGrab
def save():
x = root.winfo_rootx() + canvas.winfo_x()
y = root.winfo_rooty() + canvas.winfo_y()
x1 = x + canvas.winfo_width()
y1 = y + canvas.winfo_height()
ImageGrab.grab().crop((x, y, x1, y1)).save("screenshot.png")
```
Этот код только сохраняет область, занимаемую холстом.
PascalABC.NET
#1
function Y(x:integer) := 2*((x+2)**2)+5.5*(x+2) - 3;
begin
var Xes := Range(3, 25);
Xes.Tabulate(p -> Y(p)).Println;
end.
#2
const PASS = '123ab';
begin
var rpass := Readstring('Pass: ');
while rpass <> PASS do begin
rpass := Readstring('Wrong pass. Try again: ');
end;
print('Correct password. Welcome');
end.
#3
begin
//Сначала читаем цифру, которую надо удалить, а уже потом число.
var X := ReadChar();
var number := ReadInteger().ToString.ToCharArray.ToList;
while number.Contains(X) do number.Remove(X);
number.JoinIntoString.Println;
end.
#4
begin
var X := ReadInteger();
Print((x div 100)+(x mod 100));
end.
Объяснение: