Найти десятичные представления чисел записанных в дополнительном коде: 11101001

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

program summa;

var s, a, b, c : word;

begin

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s: =a+b+c;

            write(' сумма равна ',s);

            readln

end.

(2)-двоичная,(8)-восьмеричная.1)11011(2)= 33(8)=27(10)=1в(16)2)101111(2)=57(8)=47(10)=2f(16)3)11001100(2)=294(8)=204(10)=cc(16)4)100100111000(2)=4470(8)=2360(10)=938(16)

var a: array [1..9] of real;

s,p: real;

begin

  p: =1;

  s: =0;

  for i: = 1 to 9 do

  begin

      read(a[i]);

      s: = s+a[i];

      p: =p*a[i];

  end;

  writeln("summa=",s);

  writeln("srednee arefmeticheskoe=",s/n);

  writeln("proizvedenie=",p);

end.