А) 110000110101=6065
Б) 1010101,110010=125,62
В) 11100001011001=16131
Г) 1000010101=1025
Var i,j,sum,num:integer;
result:real;
a:array[1..10,1..10] of integer;
begin
sum:=0;
num:=0;
randomize;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=-20+random(40);
write(a[i,j]:5);
end;
writeln;
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
if a[i,j]<0 then
begin
sum:=sum+a[i,j];
num:=num+1;
end;
end;
end;
writeln;
result:=sum/num;
write(result:0:2);
end.
Var
s, res: string;
k, i, j: integer;
c: char;
begin
read(s);
s := s + chr(10);
for i := 1 to length(s) do
if s[i] = c then
k := k + 1
else begin
if k <= 2 then
for j := 1 to k do
res := res + c
else
res := res + '^' + inttostr(k) + c;
c := s[i];
k := 1;
end;
writeln(res);
end.