Тут даже особо заморачиваться и рассчитывать по действиям всё не нужно)))
8 Мбайт = 8192 Кбайт
замечаем, что 8192 Кбайт в 2 раза больше, чем 4096 Кбайт, а значит при таком же соединение, время передачи 8192 Кбайт будет в 2 раза больше, чем 4096 Кбайт, а значит 128 секунд - время передачи 8192 Кбайт, мы делим на 2, что бы узнать время передачи 2 файла который в 2 раза меньше, и получаем 128/2=64 секунды
<span><em>Ответ: 64 секунды.</em></span>
Понедельник 1-5
вторник 2-6
среда 3-7
четверг 4-6
пятница 5-5
Var s,p,a,b,c:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ',s);
<span>end.</span>
В цикле While (пока в бочке не будет необходимых X литров воды) прибавлять по N литров (1,2,3,4,5 - в разных циклах). Т.е. бочка = бочка + Nлитровый сосуд. На проверку условие: Бочка<X литров. Внутри цикла считаем, сколько раз он выполнялся. По окончании считаем разницу между объемом бочки и фактическим количеством воды, налитым в итоге
<em>VAR</em>
<em> ind: LongInt;</em>
<em> b: Array [1..10] of Real;</em>
<em>BEGIN</em>
<em> Writeln('Введите 10 чисел (элементы массива):');</em>
<em> for i := 1 to 10 do Read(b[i]);</em>
<em> </em>
<em> Write('Введите индекс эл. массива: ');</em>
<em> Read(ind);</em>
<em> Write(b[ind]);</em>
<em>END.</em>