Фотографии от Насти дошли на 18 секунд быстрее.
Объяснение:
1) вычислим, сколько весят фотографии без сжатия. Составим пропорцию:
х - 100%
4 Мб - 80%
х = 4 Мб * 100% / 80% = 5 Мб - вес всех фотографий без сжатия;
2) скорость передачи данных = 512 Кб/c = 512 / 1024 Мб/с = 0,5 Мб/с
3) t = I / v
Время, за которое сообщение Маши отправилось Артёму: 4 Мб / 0,5 Мб/c = 8 секунд. Добавляем +20 секунд на сжатие (распаковка не считается, так как нужно именно время, за которое дошло). Получается, весь процесс занял 28 секунд.
Время, за которое сообщение Насти отправилось Артёму: 5 Мб / 0,5 Мб/c = 10 секунд
Разность: 28 секунд - 10 секунд = 18 секунд
ответ: на 18 секунд быстрее.
Программа:
Pascal:
№1)
var arr: array[1..10] of integer;
begin
for var i := 1 to 10 do arr[i] := random(100);
writeln(arr);
end.
№2)
const N = 15;
var arr: array[1..N] of integer;
i, tmp: integer;
begin
for i := 1 to 15 do arr[i] := random(100);
writeln(arr);
for i:=1 to n div 2 do begin
tmp := arr[i];
arr[i] := arr[N - i + 1];
arr[N - i + 1]:= tmp;
end;
writeln(arr);
end.
№3)
const N = 20;
var
arr: array[1..N] of integer;
i, tmp, j: integer;
begin
for i := 1 to N do readln(arr[i]);
writeln(arr);
for i := 1 to N - 1 do
for j := 1 to N - i do
if (arr[j] > arr[j+1]) then begin
tmp := arr[j];
arr[j] := arr[j+1];
arr[j+1] := tmp;
end;
writeln(arr);
end.