<span>потому что там образуется огненный шар</span>
Сведения о системе;
2) средства диагностики компьютера
3) программа дефрагментации диска
4) средства коммуникации (коммуникационные программы)
5) диспетчеры файлов (файловые менеджеры)
6) средства сжатия данных (архиваторы)
7) антивирусные программы
8) средства обеспечения компьютерной безопасности
Во всех программах у меня будет использоваться процедура swap:
procedure swap(a: ^real; b: ^real);
var
t: real;
begin
t := a^;
a^ := b^;
b^ := t;
end;
swap(x,y) - меняет местами значения x и y.
1.
var
A: array[1..100] of real;
i, j, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for j := 1 to (N div 2) - 1 do
for i := 1 to (N div 2) - j do
swap(A[i], A[i + 1]);
for j := 1 to (N div 2) - 1 do
for i := (N div 2) + 1 to N - j do
swap(A[i], A[i + 1]);
for i := 1 to N do
writeln(A[i])
end.
2.
var
A: array[1..100] of real;
i, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for i := 1 to N - 1 do
swap(A[i], A[i + 1]);
for i := 1 to N do
writeln(A[i])
end.
3.
var
A: array[1..100] of real;
i, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for i := N downto 2 do
swap(A[i], A[i - 1]);
for i := 1 to N do
writeln(A[i])
end.
Всё очень просто:
1) мощность языка (сколько символов используется) N =2^i (i - "вес" 1 символа языка в битах), то есть надо найти i,
2) подсчитаем количество символов в сообщении: 6*32*40 (штук, то есть символов),
3) переведем информационный объем сообщения в биты (так как формула из п.1 работает в битах, нам надо свести всё в одни единицы измерения), V=5Кб = 5*2^13 бит,
4) Найдем "вес" 1 символа, разделив количество бит в сообщении на количество символов: 1 символ = ((5*2^13)/(6*32*40))=(2^13)/(6*32*8)=(2^13)/(6*2^8)= (упс! 32/6) =5, 33 (3) => округляем до 6
5) В языке N=2^i = 2^6= 64 символа
