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

Пусть - объём несжатого файла, а - время рас- и упаковки. скорость передачи не меняется ответ: 5 надеюсь, правильно, сократилось-то красиво

1)

var

a,b: array [1..10] of integer;

i: integer;

begin

for i: =1 to 10 do begin

repeat 

write ('a[',i,'] = '); readln(a[i]);

if a[i]> 0 then writeln ('error! ');  

until a[i]< 0;  

end;

writeln ('first massiv: ');

for i: =1 to 10 do write (a[i]: 4);

writeln;  

writeln ('second massiv: ');

i: =1;  

repeat

b[i]: =random(38)+3;

if odd(b[i])=true then i: =i+1;  

until i> 10;

for i: =1 to 10 do write (b[i]: 4);

writeln;

readln;

end.

2)

var

a,b: array [1..10] of integer;

i,k: integer;

begin

randomize;

for i: =1 to 10 do begin

a[i]: =random(15)-15;

write (a[i]: 4);

end;

writeln;  

write ('number: '); readln(k);

for i: =1 to 10 do begin

b[i]: =a[i]*k;

write (b[i]: 4);

end;

writeln;

readln;

end.

решение пятого :

  слова разделяются пробелами.  1. вводим строку.  2. находим букву, то есть знак - не пробел. с него начинается слово. сохраняем буквы по одной в отдельную строку. ищем дальше пробел. слово заканчивается перед ним.  3. проверяем 1-ю и последнюю буквы в слове. если они равны, то выводим это слово. если нет, пропускаем.