1) у васи есть доступ кинтернет по высокоскоростному одностороннему радиоканалу, обеспечивающему скорость получения им информации 218 бит в секунду. у пети нет скоростного доступа в интернет, но есть возможность получать информацию от васи по низкоскоростному телефонному каналу со средней скоростью 214 бит в секунду. петя договорился с васей, что тот будет скачивать для него данные объемом 6 мбайт по высокоскоростному каналу и ретранслировать их пете по низкоскоростному каналу. компьютер васи может начать ретрансляцию данных не раньше, чем им будут получены первые 512 кбайт этих данных. каков минимально возможный промежуток времени (в секундах), с момента начала скачивания васей данных, до полного их получения петей? в ответе укажите только число, слово «секунд» или букву «с» добавлять не нужно.
Ответы
Aurora 3D Text and Logo Maker - это продвинутый, мощный дизайнерский инструмент для создания уникального 3D текста, кнопок и логотипов, имеет достаточно большое количество шаблонов и готовых форм, которые можно использовать для создания собственного текста. Aurora 3D Text and Logo Maker имеет комплект эффектов, анимаций, текстур, с которых можно украсить 3D логотип или текст. При создании трёхмерного логотипа можно отрегулировать уровень света, добавить теней, рельеф, выбирать различные варианты искривления, выравнивания, освещения, наложения объектов и т. д. Допускается импорт шрифтов и SVG-графики. Итоговый вариант выводится в виде PNG, TGA, TIFF, JPG, BMP, XPM и PPM-файлов.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;
procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;
begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
for var j:=0 to 13 do
if a[i,j]>m then begin
Inc(k); OutLightGreen(a[i,j]) end
else Write(a[i,j]:5);
Writeln
end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.
![Дана матрица 10x14, заданная случайными числами на интервале [-180; 320]. подсчитать количество элем](/tpl/images/0548/3216/24d2a.jpg)
![Дана матрица 10x14, заданная случайными числами на интервале [-180; 320]. подсчитать количество элем](/tpl/images/0548/3216/d74f6.jpg)
uses GraphABC;
procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;
begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
for var j:=0 to 13 do
if a[i,j]>m then begin
Inc(k); OutLightGreen(a[i,j]) end
else Write(a[i,j]:5);
Writeln
end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
разобраться если надо вопрос скажу в комментариях
Автор: simonovaliubov5852
Класифікація тривимірної графіки
Автор: puma802
v2=2^14 бит/с - скорость у Пети
F= 6 Мбайт =6*2^23 бит
512 Кбайт= 2^9*2^13 бит =2^22 бит
t1=2^22 : 2^18 =2^4 =16 cекунд получение Васей первых 512 Кбайт
t2=6*2^23 : 2^14 =6*2^9 =6*512=3072 секунды - время перекачки данных от Васи к Пете
t=t1+t2=3072+16=3088 секунд
ответ 3088