КТО ЗНАЕТ ПИТОН НАПИШИТЕ КОД КТО ЗНАЕТ ПИТОН НАПИШИТЕ КОД

Первое:

import turtle

t = turtle.Pen()

number = input("Число полос: (1-7)")

#Рисование фигуры

t.up()

t.forward(200)

def lines(filled,color1):    

   if filled == True:

       t.begin_fill()    

         

   for line in range(1,3):

       t.color(color1)

       t.down()

       t.backward(20)

       t.left(90)

       t.forward(100)

       t.left(90)

       

   if filled == True:

       t.end_fill()

#Передача цвета  

def line(color):

   num = lines(True,color)

   num1 = lines(False,'#000000')

if number == '1':

   line('#000000')

   

elif number == '2':

   line('#000000')

   t.backward(20)

   line('#808080')

   

elif number == '3':

   line('#000000')

   t.backward(20)

   line('#696969')

   t.backward(20)  

   line('#808080')

   

elif number == '4':

   line('#000000')

   t.backward(20)

   line('#696969')

   t.backward(20)

   line('#808080')

   t.backward(20)

   line('#A9A9A9')

   

elif number == '5':

   line('#000000')

   t.backward(20)

   line('#696969')

   t.backward(20)

   line('#808080')

   t.backward(20)

   line('#A9A9A9')

   t.backward(20)

   line('#C0C0C0')

   

elif number == '6':

   line('#000000')

   t.backward(20)

   line('#696969')

   t.backward(20)

   line('#808080')

   t.backward(20)

   line('#A9A9A9')

   t.backward(20)

   line('#C0C0C0')

   t.backward(20)

   line('#D3D3D3')

   

elif number == '7':

   line('#000000')

   t.backward(20)

   line('#696969')

   t.backward(20)

   line('#808080')

   t.backward(20)

   line('#A9A9A9')

   t.backward(20)

   line('#C0C0C0')

   t.backward(20)

   line('#FFFFFF')

else:

   print("Error!\nЧисло должно быть в диапазоне от 1 до 7")

Объяснение:

Второе:

import turtle

t = turtle.Pen()

number = input("Число полос: (1-7)")

#Рисование фигуры

def lines(filled,color1):    

   if filled == True:

       t.begin_fill()

       

   for line in range(1,3):

       t.color(color1)

       t.forward(150)

       t.right(90)

       t.forward(20)

       t.right(90)

 

   if filled == True:

       t.end_fill()

         

def line(color):    

   num = lines(True,color)  

   num1 = lines(False,'#000000')

   t.right(90)

   t.forward(20)

   t.left(90)  

   

if number == '1':

   line('#000000')

   

elif number == '2':

   line('#000000')

   line('#808080')

   

elif number == '3':

   line('#000000')

   line('#696969')

   line('#808080')

   

elif number == '4':

   line('#000000')

   line('#696969')

   line('#808080')

   line('#A9A9A9')

   

elif number == '5':

   line('#000000')

   line('#696969')

   line('#808080')

   line('#A9A9A9')

   line('#C0C0C0')

   

elif number == '6':

   line('#000000')

   line('#696969')

   line('#808080')

   line('#A9A9A9')

   line('#C0C0C0')

   line('#D3D3D3')

   

elif number == '7':

   line('#000000')

   line('#696969')

   line('#808080')

   line('#A9A9A9')

   line('#C0C0C0')

   line('#D3D3D3')

   line('#FFFFFF')

else:

   print("Error!\nЧисло должно быть в диапазоне от 1 до 7")

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

// PascalABC.NET 3.0, сборка 1088
var
  x1,x2,y1,y2,r1,r2:real;
begin
  Write('Введите координаты первой точки: '); Read(x1,y1);
  Write('Введите координаты второй точки: '); Read(x2,y2);
  r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);
  if r1>r2 then Writeln('Ближе вторая точка')
  else
    if r1<r2 then Writeln('Ближе первая точка')
    else Writeln('Точки равноудалены')
end.

Тестовое решение:
Введите координаты первой точки: 16.3 -11.7
Введите координаты второй точки: 15.8 12
Ближе вторая точка

Дешифровка: ВХОД_ОТКР Ы Т.

дешифровки:
Const sh = '_.,';
Var
  St : String;
  i  : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
  For j:=1 to Length(S) do
  Begin
    n:=Pos(S[j],sh);
    If n>0 then
    Begin
      n:=n+k;
      While n>Length(sh) do n:=n-Length(sh);
      While n<=0 do n:=n+Length(sh);
      S[j]:=sh[n];
    end
  end;
  DeCode:=S;
end;
Begin
  St:='ЗЫФЙГФШРЦ . ШД';
  Writeln(Decode(St,sh,-6));
  //For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.