Напишите программу для машины поста которая удваивает число записанное в единичной системе счисления. каретка расположена над первой отметкой числа​

5б:

x = input("введите число: ")

y = ""

for i in range(len(x)):

   y += (x[-i])

if x==y:

   print ("Перевертыш")

else:

   print ("Нет")

6:

x1 = int(input("x1: "))

y1 = int(input("y1: "))

x2 = int(input("x2: "))

y2 = int(input("y2: "))

R1 = (x1**2 + y2**2)**(0.5)

R2 = (x2**2 + y2**2)**(0.5)

if R1 > R2:

   print ("2 ближе")

elif R2>R1:

   print ("1 ближе")

else:

   print("одинаково")

7:

a = int(input("1 сторона: "))

b = int(input("2 сторона: "))

c = int(input("3 сторона: "))

if (a>=b+c) or (b>=a+c) or (c>=b+a):

   print("не существует")

elif a==b and b==c:

   print ("Равносторонний")

elif a==b or b==c or a==c:

   print ("Равнобедренный")

else:

   print("Существует")

Объяснение:

Там все понятно

unit Unit1;

interface

uses

 System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Edit,

 FMX.Controls.Presentation, FMX.StdCtrls;

type

 TForm1 = class(TForm)

   Button1: TButton;

   Edit1: TEdit;

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

  x, s: integer;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);

begin

 x:=StrToInt(Edit1.Text);

 s:=(x+2)/5;

 Showmessage(IntTostr(s)+'ответ');

end;

end.