Var sum,i:integer;
begin
for i:=100 to 1000 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма чисел кратных 3 равна ',sum);
end.<span>
</span>
Да, нужно. Любой принтер требует отключения при заправке чернил
1.<span> 256000 бит/с * 16 с = </span>4096000 бит
1 бпйт = 8 бит ⇒ 4096000 бит = 512000 байт
512000 байт / 1024 = 500 Кбайт
Ответ: 500
2. 2000 К байт = 2000 * 1024 * 8 = 16 384 000 бит
Скорость передачи - 1024000 бит/с
t = 16 384 000 / 1024000 = 16c
Ответ: 16
3. Скорость передачи - <span>128 000 бит/с
Размер файла - </span><span>375 Кбайт
Размер файла = 375 * 1024 * 8 = 3072000 бит
t = 3072000 бит / </span><span>128 000 бит/с = 24с
Ответ: 24 с
4.Скорость передачи = </span><span>512 Кбит/с
Время передачи = </span><span>4 минуты = 240 с
Размер файла = 512 Кбит/с * 240 с = 122880 Кбайт = 120 Мбайт
Ответ: 120 Мбайт
5. Скорость передачи = </span><span>64 Кбит/с
Время = 10 минут = 600 с
Размер файла = 64 Кбит/с * 600 с / 8 = 4800 Кбайт
Ответ: 4800
6. Размер файла = 5 Кбайт
Скорость передачи = 2048 бит/с
5 Кбайт = 5120 байт
Скорость второго соединения = 512 бит/с, т.е. в 4 раза меньше ⇒
5120 / 4 = 1280
Ответ: 1280
7. По аналогии с предыдущим заданием, делаем и это:
Скорость второго соединения в 8 раз меньше, чем первого.
16 Кбайт / 8 = 2 Кбайта = 2048 байта
Ответ: 2048
</span>
10 * 2048 = 20480 символов
20480 * 8 = 163840 бит
1 байт = 8 бит
163840 / 8 = 20480 байт = 20 Кбайт