ответ:
program multi3;
var
a: array [1..3] of double;
i: integer;
p: double;
b: boolean;
begin
randomize;
write ('исходные числа: ');
writeln;
for i : = 1 to 3 do begin
a [i] : = random (4000) / 1000 - 1; // заполняем числами, чтоб были и положительные и отрицательные
write (a[i] : 10 : 3, ' ');
end;
b : = false;
p : = 1;
for i : = 1 to 3 do begin
if abs (a [i]) < 1 then begin
b : = true; // включаем флаг, если найдено хотя бы одно подходящее число
p : = p * a [i];
end;
end;
writeln;
if b then
writeln ('произведение = ', p : 10 : 3)
else
writeln ('произведение не определено.');
readln;
end.
1.
1) 4*24*1000*16 ≈ 3*2^19 (бит/с)
2) 900 мбайт=9*25*4*2^23 бит =9*25*2^25 бит
3) (9*25*2^25) / (3*2^19) = 3*25*2^6 (c) = 75*64 (c) =75*64/60 (мин)= 80(мин)
ответ 80 мин
2.
1) 640*480=(5*2^7)*(15*2^5)=5*15*2^12 пикселей
2) 240 кбайт=15*2^4 *2^13 бит=15*2^17 бит
3) (15*2^17) / (5*15*2^13) = 2^4 / 5 бит =3,2 бит = 3 бит - 1 пиксель
4) 2^3=8 цветов ответ 8 цветов
3.
1) 80 *0,7=56 мбайт - cжатый файл
80 мбайт =5*2^4 *2^23 бит=5*2^27 бит
56 мбайт=7*2^26 бит
2) 5*2^27 / 2^22 = 5*2^5 (с) = 160 секунд - время несжатого файла
3) 7*2^26 / 2^22 =7*2^4 (c) = 112 (c)
4) 23(c)+12(c)+112(c)= 147 (c) - время сжатого файла
5) 160-147=13 (с) ответ передача сжатого файла быстрее на 13 с
Поделитесь своими знаниями, ответьте на вопрос:
1) не может, потому что там в конце 03
3) не может, потому что там 5 чисел и из-за этого протеворечит старшим
4) не получится, потому что там средние меньше чем старшие.
значит остается второе, пример исходного числа:
989655