Встановіть відповідність між значеннями параметрів циклу і типами, до яких належать значення параметрів циклу Char Integer Boolean For a := False To true do listbox1.Items.Add:='**'; ? ? ? For a := 'A' To 'D' do listbox1.Items.Add ('**'); ? ? ? For a := 1 To 5 do listbox1.Items.Add ('**'); ? ? ? вместо ? ответить да или нет

const

  n = 9;   //константа может быть любой

type

  mas = array[0..n] of integer;   //тип задал только для процедуры, без подпрограмм отдельный тип не нужен

procedure copy_mas(var a, b: mas);

var

  i, i1: integer;

begin

  i1 : = 0;

  for i : = 0 to n do  

    if (a[i] > = 0) and (a[i] < = 10) then  

    begin

      b[i1] : = a[i];

      i1 += 1;

    end;

end;

9. 1312 Кбайт

10. 14 сек.

Объяснение:

9. Передача велась 42 секунды со скоростью 256000 бит/с, следовательно, было передано 256000 * 42 бит информации. Для перевода в Кбайт, полученное число необходимо поделить на 8 (бит -> байт) и на 1024 (байт -> Кбайт).

Размер файла: 256000 * 42 / 8 / 1024 = 1312,5

10. Варианта два: перевести скорость в Кбайт или объем сообщения из Кбайт в биты.

Воспользуемся первым вариантом: 128000 / 8 / 1024 = 15,625 Кбайт/с.

Время передачи составило: 229 / 15,625 = 14,656 сек.