Сдокумент( без упаковки) можно передать по каналу связи с одного компьютера на другой за 40 сек. если предварительно упаковать документ архиватором, передать упакованный документ, а потом распаковать на компьютере получателя, общее время передачи( включая упаковку и распаковку) составит 20 сек. размер упакованного документа составляет 20% процентов размера исходного документа. сколько времени в секундах ушло на упаковку данных, если известно, что на их распаковку потребовалось в два раза больше времени?

Ответы

Ответ дал: катя4812

если размер стал равен 0.2 от исходного, значит на передачу понадобилось 40*0.2 = 8 сек, значит запаковка и распаковка вместе заняли 20 - 8 = 12 секунд.

пусть x время на упаковку, время на распаковку x*2.

x + x*2 = 12

3x = 12

x = 4

ответ: 4 секунды.

Спасибо

Ответ дал: Гость

массив данных о стоимости товаров зададим в виде целочисленных констант

program primer_1; const a: array[1..12] of integer = (170, 180, 25, 36, 750, 1, 45, 28, 39, 10, 11, 58); i,min,k: integer; begin

min: =a[1];

for i: =2 to 12 do if a[i]< min then

begin

min: =a[i]; k: =i; write('минимальная стоимость ', min, ' индекс' ,k) end.

или скорее всего этот вариант

program primer_1; var a: array[1..12] of integer; i, min, k: integer; beginfor i: =1 to 12 do read(a[i]); {ввод стоимостей товаров}min: =a[1]; k: =0; for i: =2 to 12 do if a[i]< min then begin min: =a[i]; k: =i; end; write('мин. сто-мость ', min, ' индекс ' ,k)end.

Ответ дал: Гость

var s : string; symb : char; i : longint; begin readln(s); readln(symb); if pos(symb,s)=0 then writeln('в этом слове нет этого символа') else begin i: =0; while pos(symb,s)< > 0 do begin write(pos(symb,s)+i,' '); i: =i+1; delete(s,pos(symb,s),1); end; end; writeln; writeln(i); end.