Вариант 7. Даны числа: a, b, c. Если утроенное значение ь >=
разности чисел а, с, то вычислить произведение чисел в, с.
Если утроенное значение к разности чисел а, с, то
Вычислить сумму чисел a, b, c.
Заполнить таблицу:
1) а = 50 2) а = 60
b=15
с = 5
​

2 925 символов

Объяснение:

I = K * i

I - информационный объём текстового сообщения (размер файла, содержащего сообщение)

K - количество символов в сообщении

i - информационный вес одного символа (число бит, используемых для записи одного символа)

N = 2^i  

N - мощность алфавита (количество символов в алфавите)

i - информационный вес одного символа (число бит, используемых для записи одного символа)

Дано:

I = 2,5 Кбайт = 20 480 бит

N = 128 символов

Найти:

K

128 = 2^i

128 = 2⁷

i = 7 бит

I = K * i

K = I / i

K = 20 480 / 7 ≈ 2 925 символов

1 Кбайт = 1 024 байт

1 байт = 8 бит

program raf105;

const

 n = 10;

var

 a,b,c: array[1..n] of integer;

 i,j,x,max,mpos,b1,c1: integer;

begin

write('Введите максимальное число: ');

readln(x);

writeln('Заполните массив из ',n,' элементов');

for i:=1 to n do

begin

 readln(a[i]);

 if a[i] > x

   then begin

     b1:= b1+1;

     b[b1]:= a[i];

   end

   else begin

     c1:= c1+1;

     c[c1]:= a[i];

   end;

end;

for i:=1 to c1 do

begin

 max:= -10000;

 for j:=i to c1 do

   if c[j] >= max

     then begin

       max:= c[j];

       mpos:= j;

     end;

 c[mpos]:= c[i];

 c[i]:= max;

end;

for i:=1 to b1 do

 a[i]:= b[i];

for i:=1 to c1 do

 a[i+b1]:= c[i];

write('Отсортированный массив: ');

for i:=1 to n do

 write(a[i],' ');

end.