Дана программа. Введи данную программу в Паскаль.program perimetr_1;vara, b, p:real;begina: = 5;b: = 11;p:=2*(a+b);writeln('p=', p:5:0)end.​

32

Объяснение:

вроде бы на сколько я помню,все что тут надо сделать,это посчитать р. У тебя даны значения и формула. Подставляешь числа и получается: 2*(5+11)=2*16=32

всё

Uses crt;
var p,a,b,c,xa,xb,xc,ya,yb,yc,ab,ac,bc,xab,yab,xbc,ybc,xac,yac:real;
s:real;
begin
writeln('Введите х координаты вершин а и b');
readln(xa,xb);
writeln('Введите y координаты вершин а и b');
readln(ya,yb);
xab:=xb-xa;
yab:=yb-ya;
ab:=sqrt(xab*xab+yab*yab);
writeln('Введите х координаты вершин а и с');
readln(xa,xc);
writeln('Введите y координаты вершин а и c');
readln(ya,yc);
xac:=xc-xa;
yac:=yc-ya;
ac:=sqrt(xac*xac+yac*yac);
writeln('Введите х координаты вершин b и с');
readln(xb,xc);
writeln('Введите y координаты вершин b и c');
readln(yb,yc);
xbc:=xc-xb;
yab:=yc-yb;
bc:=sqrt(xbc*xbc+ybc*ybc);
p:=(ab+bc+ac)/ 2;
s:=sqrt(p*(p-ab)*(p-bc)*(p-ac));
writeln(s);
end.

1) 73=1001001 (2)         2)91=1011011 (2)
     44=101100 (2)               28=11100 (2)

+1001001                            -1011011
     101100                                  11100
                             
  1110101= 117 (10)             111111=63 (10)

 

3)27=11011 (2)

    5=101 (2)
    *11011

          101

   

  +  11011

    00000

  11011

 

10000111=135

 

4)70=1000110 (2)

    7=111 (2)

 - 1000110 | 111

     111         |
    1010= 10 (10)

         -111

          111

           

               0