Дайте с решением 1. Какой объем информации (в килобайтах) можно передать за 10 мин по каналу с пропускной
бит/с.
2. Сколько секунд потребуется модему, передающему сообщения со скоростью 14 400 бит/с, чтобы
передать сообщение объемом 225 Кбайт?
3. Какова должна быть минимальная пропускная канала (в битах в секунду), чтобы за
2 минуты можно было передать файл размером 30 Кбайт?
4. Скорость передачи данных через ADSL-соединение равна 128000 бит/с. Сколько времени (в
секундах) займет передача файла объемом 500 Кбайт по этому каналу?
5. Передача данных через ADSL-соединение заняла 2 минуты. За это время был передан файл,
размер которого 3 750 Кбайт. Определите минимальную скорость (бит/c), при которой такая
передача возможна.

¬ (A v B ) /\ ¬ C =(раскроем скобки по закону де-Моргана)=

= ¬A /\ ¬B /\ ¬ C =(доказательство этого перехода - через таблицу истинности)= ¬(A v B v C)

Доказательство последнего равенства:

1) ¬A /\ ¬B /\ ¬ C

А B C   F

0 0 0    1

0 0 1     0

0 1 0     0

0 1 1      0

1 0 0     0

1 0 1      0

1 1 0      0

1 1 1       0

2) ¬(A v B v C)

А B C   F

0 0 0    1

0 0 1     0

0 1 0     0

0 1 1      0

1 0 0     0

1 0 1      0

1 1 0      0

1 1 1       0

Так как таблицы истинности совпали, последний переход равносилен.

ответ: ¬(A v B v C)

var

 i, p, n, q, sum: integer;

 a : array[1..1000000] of byte;

begin

 Write('Введите число N: ');

 ReadLn(n);

 Write('Введите основание системы счисления q: ');

 ReadLn(q);

 p := n;

 while p > 0 do

   begin

     i := i + 1;

     a[i] := p mod q;

     sum := sum + a[i];

     p := p div q;

   end;

 Write(n,'(10) = ');

 for p := i downto 1 do

   Write(a[p]);

 WriteLn('(', q, ')');

 WriteLn('Сумма цифр полученного числа равна ', sum);

 WriteLn('Количество цифр полученного числа равна ', i);

end.

Объяснение: