Запишите внутреннее представление следующих десятичных чисел используя восьмиразрядную ячейку 32 -32 102 -102 126 -126

Вроде как-то так: var   a1,a2,a3,a4,a5,a6: real; function sr(a1,a2,a3: real): real; begin   if ((a1< =a2) and (a1> =a3)) or ((a1< =a3) and (a1> =a2)) then sr: =a1 else   if ((a3< =a2) and (a3> =a1)) or ((a3< =a1) and (a3> =a2)) then sr: =a3 else     sr: =a2; end; begin   write('введите две тройки чисел: ');   readln(a1,a2,a3,a4,a5,a6);   writeln('среднее арифметическое 2-х средних чисел =',(sr(a1,a2,a3)+sr(a4,a5,a6))/2: 0: 4); end.

#include < iostream> #include < iomanip> #include < math.h> using namespace std; float perimetr(int x1,int y1, int x2, int y2, int x3, int y3){    float a,b,c;     a=sqrt(float((x1-x2)*(x1-x2)+(y1-y2)*(y1-;     b=sqrt(float((x3-x2)*(x3-x2)+(y3-y2)*(y3-;     c=sqrt(float((x1-x3)*(x1-x3)+(y1-y3)*(y1-;     if(a> b+c || b> a+c || c> b+a)        return 0;     return a+b+c; }int main (){    int x[8]={1,6,3,8,4,1,8,3};     int y[8]={2,4,1,7,9,3,5,8};     int i,j,k;     int imax, jmax, kmax;     float pmax=0,p=0;     for(i=0; i< 8; i++)    {        for(j=i+1; j< 8; j++)        {            for(k=j+1; k< 8; k++)            {                p=perimetr(x[i],y[i],x[j],y[j],x[k],y[k]);                 if(pmax< p)                {                    pmax=p;                     imax=i;                     jmax=j;                     kmax=k;                 }            }        }    }    if(pmax==0)        cout< < "is etih tochek treugolnik sostavit ! ";     else    {        cout< < "tochka - "< < imax< < "\n";         cout< < "tochka - "< < jmax< < "\n";         cout< < "tochka - "< < kmax< < "\n";     }    system ( " pause " );     return 0; }