1. Общее количество символов 1800 + 2 х 3000 = 7800. Пусть символы кодируются в однобайтном коде ASCII, тогда 7 800 символов имеют информационный объём 7 800 байт или 7800 х 8 =62 400 бит. При скорости передачи 1200 бит/с на передачу этой информации потребуется время 62400 / 1200 = 52 с 2. Предполагая кодировку ASCII определим объем информации: 7920 х 40 х 8 = 2 534 400 бит. Скорость передачи составит 2534400 / 33 = 76 800 бит/с 3. Переводим килобайты в биты (1 Кбайт = 1024 байта, 1 бит = 8 байт): 3750 х 1024 х 8 = 30 720 000 бит. Переводим минуты в секунды: 2 х 60 = 120 с Определяем скорость передачи: 30720000 / 120 = 256 000 бит/с 1) 500 Кбайт = 500 х 1024 х 8 = 4 096 000 бит. Время передачи данных 4096000 / 128000 = 32 с 2) За 2 минуты, равные 2 х 60 = 120с, будет передано 256000 х 120 = 30 720 000 бит. Переводим в килобайты: 30720000 / 8 / 1024 = 3 750 Кбайт 3) 3000 Кбайт = 3000 х 1024 х 8 = 24 576 000 бит 5 минут - это 5 х 60 = 300 с Скорость передачи данных составит 24576000 / 300 = 81 920 бит/с
Насколько я помню, в паскале невозможно реализовать бесконечный цикл, поэтому решение будет слегка притянуто за уши. Например если вы введете число из 9001 символа, программа будет работать неккоректно. Для выхода из цикла используется 'метка'.
a, counter, Summa : integer; Label Transfer; Begin writeln('Введите число'); readln(a); counter := 1; counterTw0 := counterTwo + 1; while counter < 9000 Do begin counter := counter +1; if (a div counter) < 0 then Transfer else counterTwo := counterTwo + 1; else; Goto Transfer;
//Узнали, что в числе counterTwo символов
while counter < counterTwo Do Summa := Summa + ((a div counter) mod 10);
