Как решить : в одной из кодировок юникод каждый символ кодируется 2 байтами. текст набран в этой кодировке был перекодирован в 8 битную кодировку кой8 при этом в памяти компьютера текст стал занимать на 1024 бит меньше. из скольких символов состоит текст?

1024:8бит:2байт*16бит

1)

const n=31;

var a:array[1..n] of integer;

i,s,k:integer; 

begin

Randomize;

for i:=1 to n do

 begin

 a[i]:=random(41)-20;

 write(a[i]:4);

 end;

writeln;

s:=0; k:=0;

for i:=1 to n do

 if a[i]>0 then begin s:=s+a[i]; k:=k+1; end;

writeln('Средняя температура дней с оттепелью = ',s/k:4:2);

end.

Пример:

 -7  4 17-13 20 -8 12 11 15-17 -5 15-17 -4 14-12  3-20  6 -8-14 -8 18 17  6 -9 16 10 17 20-15

Средняя температура дней с оттепелью = 13.00

2)

const m=10;

var a:array[1..m] of integer;

i,s:integer; 

begin

Randomize;

for i:=1 to m do

 begin

 a[i]:=random(21);

 write(a[i]:4);

 end;

writeln;

s:=0;

for i:=1 to m do 

 if i mod 2 = 1 then s:=s+a[i];

writeln('s = ',s);

for i:=1 to m do 

 if i mod 2 = 0 then a[i]:=s;

for i:=1 to m do write(a[i]:4);

writeln;

end.

Пример:

 14   9   0   8   6   2   2  16   1  16

s = 23

 14  23   0  23   6  23   2  23   1  23

Подробнее - на -

1)

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

2)

var x:longint;

begin

readln(x);

if(x>0) then writeln(x-6) else if(x=0) then writeln(32*x-7) else if(x<0) then writeln(5*x-2);

end.

3) В третьей условие не совсем понял, если что, дополни, отредактирую код. Какие значения принимают элементы (по какому принципу заполняется массив)? Написал для массива с элементами от 1 до 50.

var a:array[1..50] of integer;

var i:integer;

begin

for i:=1 to 50 do a[i]:=i;

for i:=1 to 50 do writeln(a[i]);

end.