НУЖНО Створіть новий файл Python та вікно із заголовком “Вікно №7” та з розмірами 500х500. Створіть кнопку із текстом “Розфарбуй”, розміщену на 200 пікселів від лівого та верхнього краю. Додайте до кнопки подію Button-3, при виконанні якої колір вікна стане блакитним та буде створюватися напис із текстом “Це вікно було створено в середовищі Прізвище (вкажіть ваше прізвище)”. Колір напису повинен бути синім, а колір тексту білий, шрифт тексту “Arial 14”. Напис буде розміщуватися на 200 пікселів від лівого краю та на 250 пікселів від верхнього краю.

from tkinter import *

def fun1(event):

My_window["bg"]="blue"

label=Label(My_window, text="Це вікно було створено в середовищі Прізвище (вкажіть ваше прізвище)", bg="blue", fg="white", font="Arial 14")

label.place(x=200, y=250)

My_window = Tk()

My_window.title("Вікно №7")

My_window.geometry("500х500")

but = Button(My_window, text="Розфарбуй")

but.place(x=200, y=200)

but.bind("<Button-3>", fun1)

В 3, 4 и 5 строках должна быть табуляция.

Настоятельно рекомендую всё это проверить в компиляторе. Делал всё по, скорее всего, Вашему школьному курсу. По вопросам пишите в комментарии. :)

Можливі 5 випадків:

1) пряма перетинає дві протилежні сторони і є перпендикулярною до них. Тоді утворюються два

прямокутники;

2) пряма перетинає дві протилежні сторони і НЕ є перпендикулярною до них. Тоді утворюються дві трапеції;

3) пряма перетинає дві суміжні сторони. Тоді утворюються: трикутник і п'ятикутник;

4) пряма проходить через одну вершину прямокутника і одну з протилежних їй сторін. Тоді утворюються: трикутник і трапеція;

5) пряма проходить через дві протилежні вершини прямокутника (діагональ). Тоді утворюються: два трикутники

Малюнок причепив

1) тк не уточнила загружаем из файла, или вводим с клавиатуры, получай с этими двумя функциями. в каталоге с программой должен быть файлик .txt

var a,filename:string[255];
chk,i,res:integer;
f1:Text;
begin
res:=0;
chk:=0;
Writeln('1. Input line');
Writeln('2. Load from file');
Readln(chk);
if chk=1 then
begin
  Writeln('Input line: ');
  Readln(a);
  for i:=1 to Length(a) do
    if a[i]='.' then
    res:=res+1;
  Writeln('Result: ',res);
end;
if chk=2 then
begin
  writeln('Input name of file: ');
  Readln(filename);
  filename:=filename+'.txt';
  Assign (f1, filename);
  Reset(f1);
  while not eof (f1) do
    begin
    readln (f1, a);
    writeln(a);
    for i:=1 to Length(a) do
        if a[i]='.' then
        res:=res+1;
    end;
  Writeln('Result: ',res);
  Close (f1);
end;
readln;
end.

2) вводим не запятую, а точку, как разделитель частей числа

var a,substr:string[100];
x,res,i:integer;
begin
writeln('Input number:');
Readln(a);
substr:='.';
x:=Pos(substr,a);
for i:=1 to x-1 do
  res:=res+strtoint(a[i]);
Writeln('Result of first part: ',res);
res:=0;
for i:=x+1 to Length(a) do
  res:=res+StrToInt(a[i]);
Writeln('Result of second part: ',res);
readln;
end.