Вмагазине конфеты в упаковках по 0,1, 0,,9 кг, 1st. известно что 1 кг конфет стоит х рублей. выведите стоимости каждой упаковки в виде: 0,1 кг конфет стоит р; 0,2 кг конфет стоит р. .

1. var a: array[1..10] of integer;
          i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  kol := 0;
  for i := 1 to 10 do
    if a[i] mod 2=0 then
    begin
      kol := kol + 1;
      write(a[i],' ');
    end;
  writeln;
  writeln(kol);
End.
2. var a: array[1..10] of integer;
    i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  kol := 0;
  for i := 1 to 10 do
    if a[i] > 9 then
    begin
      kol := kol + 1;
      write(a[i],' ');
    end;
  writeln;
  writeln(kol);
End.
3. var a: array[1..10] of integer;
    i: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 2=0 then write(a[i],' ');
  for i := 1 to 10 do
    if a[i] mod 2=1 then write(a[i],' ');
End.
4. var a: array[1..10] of integer;
    i, r: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  i := 1;
  while i < 10 do
    if a[i+1] < a[i] then begin
      r := a[i+1];
      a[i+1] := a[i];
      a[i] := r;
      i := 1;
    end else i := i + 1;
  for i := 1 to 10 do
    if a[i] mod 2=0 then write(a[i],' ');
  for i := 1 to 10 do
    if a[i] mod 2=1 then write(a[i],' ');
End.
5. var a: array[1..10] of integer;
    i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 10 = 5 then kol := kol + 1;
  writeln(kol);
End.

1.
Формула:  I=Ki и N=2 ^{i} 
K =30 N=128 найти I
решение
N=  2 ^{i}  128 =2 ^{7}  i=7 бит
I =Ki =30•7 =210 бит
2.
l =Ki
N=  2^{i} 

I = объем информации

k = кол-во символов

i = минимальное кол-во бит для кодирования одного символа

N = мощность алфавита;

k = 64•256 = 16384

N= 32

i = ㏒_{2}  32 = 5 бит

I = 16384 • 5 = 81920 (бит) = 10240 (байт) = 10 Кбайт

ответ: 10 Кбайт

3.

0,5 Кбайта • 1024= 512 байта

4.

Извини, не могу решить, вроде решил а потом перерешил и неправильно, вот что есть уж пока:

На один символ - 1 байт

30 строк по 50 символов = 1500 символов

3 страницы - это 4500 символов

ответ: 4500 байт!