Необходимо разработать двоичный код и перевести в него всю важную информацию. Достаточно ли пятиразрядного двоичного кода, если алфавит содержит 27 символов? Полное обоснованное решение.

14.9 (равнобедренные трапеции (с комментариями)):

#S=1/2h(a+b)

print ('Введите первое основание для первой трапеции')

af=int(input()) # Первое основание первой

print('Введите второе основание для первой трапеции')

bf=int(input()) # Второе основание первой

print('Введите высоту для первой трапеции')

hf=int(input()) # Высота первой

print ('Введите первое основание для второй трапеции')

aas=int(input()) # Первое основание второй

print ('Введите второе основание для второй трапеции')

bs=int(input()) # Второе основание второй

print ('Введите высоту для второй трапеции')

hs=int(input()) # Высота второй

pf=(af+bf)+af-bf)/2)**2+hf**2)**0.5)*2 #Периметр первой

ps=(aas+bs)+aas-bs)/2)**2+hs**2)**0.5)*2 #Периметр второй

sf=(af+bf)*hf/2 # Площадь первой

ss=(aas+bs)*hs/2 #Площадь второй

print ('Сумма периметров=', pf+ps)

print ('Сумма площадей=', sf+ss)

14.23 (Трехзначные простые числа):

for a in range (100,1000):

   b=0

   for i in range (2,a):

       if a%i==0:

           b+=1

   if b==0:

       print(a)

P.S: Вставлено из среды разработки, проверку на компиляторе программы

Var
A,B0,B1,B2,B3,B4,B5,B6,B7,B8,B9:integer;
Begin
WriteLn('Введите число');
ReadLn(A);
While A>0 do
   Begin
   Case A mod 10 of
   0:B0:=B0+1;
   1:B1:=B1+1;
   2:B2:=B2+1;
   3:B3:=B3+1;
   4:B4:=B4+1;
   5:B5:=B5+1;
   6:B6:=B6+1;
   7:B7:=B7+1;
   8:B8:=B8+1;
   9:B9:=B9+1;
   End;
   A:= A div 10;
   End;
if (B0 = 3)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)then WriteLn('Верно')
else if (B1 = 3)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)then WriteLn('Верно')
else if (B2 = 3)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)then WriteLn('Верно')
else if (B3 = 3)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)then WriteLn('Верно')
else if (B4 = 3)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)then WriteLn('Верно')
else if (B5 = 3)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)then WriteLn('Верно')
else if (B6 = 3)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)then WriteLn('Верно')
else if (B7 = 3)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)then WriteLn('Верно')
else if (B8 = 3)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)then WriteLn('Верно')
else if (B9 = 3)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)then WriteLn('Верно')
else WriteLn('Не верно')
End.