1. Сколько битов в секунду передаётся (в среднем) по линии связи, если файл размером 2 Кбайта был передан за 8 с? 2. Скорость передачи данных по линии связи равна 1000 бит/с. Сколько секунд потребуется на передачу файла размером 4000 битов? 3. Документ объёмом 8 Мбайт можно передать с одного компьютера на другой двумя А) сжать архиватором, передать архив по каналу связи, распаковать; Б) передать по каналу связи без использования архиватора. Какой быстрее и насколько, если • средняя скорость передачи данных по каналу связи составляет 221 бит в секунду, • объём сжатого архиватором документа равен 25% от исходного, • время, требуемое на сжатие документа, - 15 секунд, на распаковку - 2 секунды? В ответе напишите букву А, если А быстрее, или Б, если быстрее Б. Сразу после буквы напишите на сколько секунд один быстрее другого. Так, например, если Б быстрее А на 23 секунды, в ответе нужно написать Б23. Слова «секунд», «сек.», «с.» к ответу добавлять не нужно.
Ответы
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var n:=ReadInteger('Количество элементов массива ');
var m:=ArrRandom(n,-50,50); m.Println(', ');
var a:=0; var b:=0; var c:=0;
for var i:=0 to n-1 do begin
if m[i]>0 then a:=a+m[i];
if m[i]<m[b] then b:=i;
if m[i] mod 5 = 0 then Inc(c)
end;
var w:=(b+1)+a/(c+1);
WritelnFormat('A={0}, B={1}, C={2}, W={3}',a,b+1,c,w);
Writeln('Принято, что элементы массива нумеруются от единицы')
end.
Тестовое решение:
Количество элементов массива 13
-43, -15, 18, -8, -13, -47, -36, 6, -16, 45, 33, 33, -24
A=135, B=6, C=2, W=51
Принято, что элементы массива нумеруются от единицы
begin
var n:=ReadInteger('Количество элементов массива ');
var m:=ArrRandom(n,-50,50); m.Println(', ');
var a:=0; var b:=0; var c:=0;
for var i:=0 to n-1 do begin
if m[i]>0 then a:=a+m[i];
if m[i]<m[b] then b:=i;
if m[i] mod 5 = 0 then Inc(c)
end;
var w:=(b+1)+a/(c+1);
WritelnFormat('A={0}, B={1}, C={2}, W={3}',a,b+1,c,w);
Writeln('Принято, что элементы массива нумеруются от единицы')
end.
Тестовое решение:
Количество элементов массива 13
-43, -15, 18, -8, -13, -47, -36, 6, -16, 45, 33, 33, -24
A=135, B=6, C=2, W=51
Принято, что элементы массива нумеруются от единицы
Специально для вас выловил ошибки, находящиеся в предыдущем решении. Кому-то не повезло :(
//PascalABC
var
S : array[1..10000] of integer;
A, B, C, i, N, min : integer;
W : real;
begin
write('Укажите размер массива > ');
readln(N);
write('Вводите элементы массива > ');
for i := 1 to N do
readln(S[i]);
A := 0;
min := S[1];
C := 0;
for i := 1 to N do begin
if S[i] > 0 then A := A + S[i];
if S[i] < min then begin
B := i;
min := S[i];
end;
if S[i] mod 5 = 0 then C := C + 1;
end;
W := B + A / (C + 1);
writeln('Сумма элементов ', A);
writeln('Номер минимального эл-та ', B);
writeln('Количество кратных пяти ', C);
writeln('Параметр W ', W);
end.
//PascalABC
var
S : array[1..10000] of integer;
A, B, C, i, N, min : integer;
W : real;
begin
write('Укажите размер массива > ');
readln(N);
write('Вводите элементы массива > ');
for i := 1 to N do
readln(S[i]);
A := 0;
min := S[1];
C := 0;
for i := 1 to N do begin
if S[i] > 0 then A := A + S[i];
if S[i] < min then begin
B := i;
min := S[i];
end;
if S[i] mod 5 = 0 then C := C + 1;
end;
W := B + A / (C + 1);
writeln('Сумма элементов ', A);
writeln('Номер минимального эл-та ', B);
writeln('Количество кратных пяти ', C);
writeln('Параметр W ', W);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Создать программу на паскале по уравнению v+(s-w)*2
Автор: khar4550
Что такое примечание выше a#5 на onlinesequencer.net клавиатура?
Автор: elenalusia
Создайте приложения, чтобы нарисовать на экране 3 прямоугольника красного, зелёного, и черного цветов.
Автор: Николаевич-Анатольевич599
В какой вкладке находятся команды для создания оглавления?
Автор: ermisyareg436
Однокоренное одушевлённое слово к слову спорт, здоровье.?
Автор: Olegovna Volkov
Что не относится к технике линейка, пенал, весы, компьютер
Автор: ashantik
Что означает " 0.15е + 02", выведенная в консоль
Автор: Маринина_Елена
ответ:24932487871407
Объяснение:
34-932489234890238492348-2348-12348-12348-123048-34-324-2348-34-883418-48-124