Задание №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
1. Числа образуют последовательность, для n-го члена которой верны следующие соотношения:
Последняя формула позволит ответить на вопрос "Сколько дней понадобиться,чтобы лягушка съела больше 35 комаров за раз", для чего надо решить неравенство:
Т.е. это произойдет в шестой день. Хороший проверить работу программы.
var i,an,s,f:integer;
begin s:=0; an:=0; f:=0; for i:=1 to 10 do begin an:=2*an+1; if f=0 then if an>35 then begin Writeln('День ',i,', за раз съедено комаров- ',an); f:=1 end; s:=s+an end; Writeln('За 10 дней съедено комаров: ',s) end.
Результат выполнения программы: День 6, за раз съедено комаров- 63 За 10 дней съедено комаров: 2036
2. Используем алгоритм Евклида.
var a, b: integer; begin Write('Введите два натуральных числа: '); Readln(a,b); if a<>b then repeat if a > b then a := a - b else b := b - a until a=b; Writeln('НОД=',b) end.
Тестовое решение: Введите два натуральных числа: 264 5436 НОД=12
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
Последняя формула позволит ответить на вопрос "Сколько дней понадобиться,чтобы лягушка съела больше 35 комаров за раз", для чего надо решить неравенство:
Т.е. это произойдет в шестой день. Хороший проверить работу программы.
var
i,an,s,f:integer;
begin
s:=0; an:=0; f:=0;
for i:=1 to 10 do
begin
an:=2*an+1;
if f=0 then
if an>35 then
begin
Writeln('День ',i,', за раз съедено комаров- ',an);
f:=1
end;
s:=s+an
end;
Writeln('За 10 дней съедено комаров: ',s)
end.
Результат выполнения программы:
День 6, за раз съедено комаров- 63
За 10 дней съедено комаров: 2036
2. Используем алгоритм Евклида.
var
a, b: integer;
begin
Write('Введите два натуральных числа: '); Readln(a,b);
if a<>b then
repeat
if a > b then a := a - b
else b := b - a
until a=b;
Writeln('НОД=',b)
end.
Тестовое решение:
Введите два натуральных числа: 264 5436
НОД=12