Program z20; Var n, sum, i:integer; a: array [1..1000] of integer;Begin write('Введите кол-во чисел = '); readln(n); for i:=1 to n do begin write('Число [', i, '] = '); readln(a[i]); end; sum:= 0; for i:=1 to n do if (a[i] mod 5 = 0) and (a[i] mod 3 <> 0) then sum:= sum + a[i]; writeln('Сумма чисел = ', sum);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
