Практичні завдання 1. Створіть новий файл Python та підключіть відповідний модуль. Створіть нове вікно світло червоного кольору iз розмірами 600 на 700 пікселів із забороною змінювати розміри вікна. Створити текстове поле (всi атрибути встановити за власним бажанням), кнопку поруч із текстовим полем (текст "Ок", колір білий, шрифт "Calibri 13"), та напис із початковим текстом «Ви нічого не ввели». Після натискання на кнопку текст напису повинен змінитися на введений користувачем.

{
Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен.
}

var
 sq : array[0..999] of array[0..9] of boolean;
 co : array[0..999] of integer;
 ar : array[1..10003] of 0..9;
  i,j: integer;
 x: integer;
 t : boolean;
 begin
 for i := 0 to 999 do
   begin
   for j := 0 to 9 do
   sq[i][j] := false;
   co[i] := 0;
   end;
 for i := 1 to 3 do
   ar[i] := 0;
 i := 3;
 t := true;
 {write('000');}
 while t do
   begin
   i := i + 1;
   x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1];
   if co[x] >= 10 then t := false
     else
     begin
     j := 1;
     while sq[x][j] do 
       j := (j + 1) mod 10;
     ar[i] := j;
     sq[x][j] := true;
     co[x] := co[x] + 1;
     {write(j)}
     end;
   end;
 {writeln;}
 writeln('Length: ',i - 1);

 {просто чтобы убедиться}
 for i := 0 to 999 do
   for j := 0 to 9 do
   sq[i][j] := false;

  t := true;
 j := 0;
 i := 1;
 while (i <= 10000) and t do
   begin
   x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2];
   if sq[x][ar[i+3]] then t := false
     else
     begin
     sq[x][ar[i+3]] := true;
     j := j + 1;
     end;
   i := i + 1
   end;
 if t and (j = 10000) then
   write('Confirmed')
end.

Пока 1,2,3,4,6 решил Вам, позже ещё решу, если тут никто больше не
1.

456,78(10)=4*10^2+5*10^1+6*10^0+7*10^-1+8*10^-2

2.

10011,011(2)=1*2^4+0*2^3+0*2^2+1*2^1+1*2^0+0*2^-1+1*2^-2+1*2^-3

3.

Иерархическая структура памяти ЭВМ - является традиционным решением проблемы хранения больших объемов данных. На самом верху иерархии находятся регистры процессора. Доступ к регистрам осуществляется быстрее всего. Дальше идет кэш-память, объем которой сейчас составляет от 32 Кбайт до нескольких мегабайтов. Затем следует основная память, которая в настоящее время может вмещать от 16 Мбайт до десятков гигабайтов. Затем идут магнитные диски и, наконец, накопители на магнитной ленте и оптические диски, которые используются для хранения архивов.

4.

Program Perimeter_of_a_rectangle;

var
A: integer;
B: integer;
PERIMETER: integer;

begin
write('Введите сторону А: ');
read(A);
write('Введите сторону B: ');
read(B);
PERIMETER:=A*2+B*2; // Вычисление периметра прямоугольника
write('Периметр прямоугольника равен: '+PERIMETER);
end.

6.

Program A_or_B;

var
A, B: longint;

begin
write('Введите число A: ');
read(A);
write('Введите число B: ');
read(B);
if A > B then
writeln('Число А больше числа В');
if B > A then
writeln('Число В больше числа А');
end.

Надеюсь удачи :)