var i: word; //Было предпочтительнее использовать byte, //ведь от 3 до 7 считаем, но тип word старее, //а к byte могут придраться
begin SetBrushColor(clBlue); //Проставляем цвет кисти, я не //нашёл функции рисования круга, //где можно было бы указать цвет for i := 3 to 7 do begin FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70 sleep(500); //Поскольку круги в конечном счёте всё равно //затираются более большими, будем выводить //с задержкой end; end.
Задание №1 60 Мбайт * 8 = 480 Мбит - размер файла в мегабитах 480 Мбит * 1024 = 491520 Кбит - размер файла в килобитах 491520 / 2 = 245760 Кбит - половина файла 245760 Кбит / 256 = 960 секунд - время передачи первой половины файла 245760 Кбит / (256 / 2) = 245760 Кбит / 128 = 1920 секунд - время передачи втораой половины файла 960 с + 1920 с = 2880 секунд - общее время передачи В одной минуте 60 секунд: 2880 / 60 = 48 минут - передан весь файл
Задание №2 Переведем килобайты в биты: N = 3750кбайт = 30720000бит Вычислим скорость передачи информации: V = 30720000/120 V = 256000 бит/c
3,7,5
Объяснение: