Решение задачи Case 14

#include <bits/stdc++.h>
 using namespace std;
int main(void)
{
   int n;
   float x,a,r1,r2,s;
   printf("Номер элемента:") ;
   scanf ("%i", &n);
   printf("Длинна:") ;
   scanf ("%f", &x);
 
   switch (n) {
   case 1:
        a=x;
        r1=a*sqrt(3)/6;
        r2=2*r1;
        s=a*a*sqrt(3)/4;
        printf("%f %f %f\n",r1,r2,s);
        break;
   case 2:
       r1=x;
       a=r1*6/sqrt(3);
       r2=2*r1;
       s=a*a*sqrt(3)/4;
       printf("%f %f %f\n",a,r2,s);
        break;
   case 3:
       r2=x;
       r1=r2/2;
       a=r1*6/sqrt(3);
       s=a*a*sqrt(3)/4;
       printf("%f %f %f\n",a,r1,s);
        break;
   case 4:
       s=x;
       a=sqrt(s*4/sqrt(3));
       r1=a*sqrt(3)/6;
       r2=2*r1;
       printf("%f %f %f\n",a,r1,r2);
        break;
   }
   return 0;
}

import random
import math

r = {1 : "сторона a", 2 : "радиус R1 вписанной окружности", \
     3 : "радиус R2 описанной окружности", 4 : "площадь S"}
d = []

i = random.randrange(1,5)
i = 4
print("i : ", i)
N = random.randrange(1,100)
#N = 64
print(r[i],":",N)
if i == 1:
    a = N
    R1 = a * math.sqrt(3) / 6
    R2 = R1 * 2
    S = a**2 * math.sqrt(3) / 4
elif i == 2:
    R1 = N
    a = R1 * 6 / math.sqrt(3)
    R2 = R1 * 2
    S = a**2 * math.sqrt(3) / 4
elif i == 3:
    R2 = N
    R1 = R2 / 2
    a = R1 * 6 / math.sqrt(3)
    S = a**2 * math.sqrt(3) / 4
elif i == 4:
    S = N
    a = math.sqrt(S * 4 / math.sqrt(3))
    R1 = a * math.sqrt(3) / 6
    R2 = R1 * 2

d.append(a)
d.append(R1)
d.append(R2)
d.append(S)

print()
print("Элементы равностороннего треугольника:")
for i in range(0,4):
    print(r[i+1],":",d[i])
									

program Case14;
var
  N:Integer;
  X,a,R1,R2,S:Real;
begin
  Write('Введите номер равностороннего треугольника: ');
  Readln(N);
  Write('Введите длинну элемента: ');
  Readln(X);
 
  Case N of
   1: begin
       a:=X;
       R1:=a*sqrt(3)/6;
       R2:=2*R1;
       S:=Sqr(a)*sqrt(3)/4;
      end;
   2: begin
       R1:=X;
       a:=R1*6/sqrt(3);
       R2:=2*R1;
       S:=Sqr(a)*sqrt(3)/4;
      end;
   3: begin
       R2:=X;
       R1:=R2/2;
       a:=R1*6/sqrt(3);
       S:=Sqr(a)*sqrt(3)/4;
      end;
   4: begin
       S:=X;
       a:=Sqrt(S*4/sqrt(3));
       R1:=a*sqrt(3)/6;
       R2:=2*R1;
      end;
  end;
  Writeln('Длина стороны равна: ',a,'; Радиус R1 равен: ',R1,'; Радиус R2 равен: ',R2, 'Площадь равна',S);
end.