В ответе напишите букву А, если способ А быстрее или Б, если быстрее способ Б. Сразу после буквы напишите количество секунд, насколько один способ быстрее другого. Так, например, если способ Б быстрее способа А на 23 секунды, в ответе нужно написать Б23. Слов «секунд», «сек.», «с.» к ответу добавлять не нужно.<span><span>Решение </span>Выразим объем документа в битах, выделив в качестве множителя степень двойки.</span><span>10 Мбайт = 10*220 байт = 10*223 бит.</span><span>Время передачи документа бес сжатия (способ Б) T<span>Б = </span>10*223 (бит) : 218 (бит/сек) = 10*25 = 10*32 = 320 (сек). Сжатый файл на 100% - 25% = 75% меньше исходного. Поэтому выигрыш во времени передачи упакованного документа (не считая времени на сжатие и распаковку документа) составляет 0.75*320 = 240 (сек). Учитывая 8+2 = 10 сек, которые требуются для сжатия и распаковки жокумента, способ А быстрее на 240 – 10 = 230 сек.</span><span>Ответ: А230</span><span>
</span>
Ответ единица. :)
Пояснения или решение нужны?
<span>дополни схему: действия с информацией-считать,передавать, копировать, править, удалять.</span>
1) Вот первая задачка:
uses crt;
var a, b, c : real;
begin
ClrScr;
Write(' a = '); ReadLn(a);
Write(' b = '); ReadLn(b);
c:=sqrt(a*a+ b*b);
WriteLn(' c = ', C:4:2);
ReadLn;
end.
2) А вот задачка 2
uses crt;
var s, s0 : real;
i: integer;
begin
ClrScr;
S0:=3;
i:=1;
While S0<20 do
begin
i:=i+1;
S:=S0*(1+0.05);
S0:=S+S0;
end;
WriteLn(' Day = ', i);
ReadLn;
end.
3) А вот и третья задачка подоспела....
uses Crt;
const n=15;
type Mas = array [1..n] of real;
var A: Mas;
i: integer;
Sum: real;
begin
ClrScr;
Sum:=0;
for i:=1 to n do
begin
Write(' A[',i, '] = ' ) ; ReadLn (A[i]);
Sum:=Sum+A[i];
end;
WriteLn (' Massiv: ');
for i:=1 to n do
Write (A[i]:6:2,' ');
WriteLn; WriteLn;
WriteLn ('Sum = ', Sum:6:2);
ReadLn;
end.
