Тут даже особо заморачиваться и рассчитывать по действиям всё не нужно)))
8 Мбайт = 8192 Кбайт
замечаем, что 8192 Кбайт в 2 раза больше, чем 4096 Кбайт, а значит при таком же соединение, время передачи 8192 Кбайт будет в 2 раза больше, чем 4096 Кбайт, а значит 128 секунд - время передачи 8192 Кбайт, мы делим на 2, что бы узнать время передачи 2 файла который в 2 раза меньше, и получаем 128/2=64 секунды
<span><em>Ответ: 64 секунды.</em></span>
Всего 20 домов
№16 не ясно из чего (т.е из любого)
6/20=0,3 дерево
8/20=0,4 кирпич
0,3 железобетон
0,3+0,4+0,3=1
На 234 метро вырастет деревом через 2340 дней
Var a: array [1 .. 10] of integer;
i, Count, C, tmpLast, tmpFirst: integer;
begin
write('Введите число C: ');
readln(C);
writeln;
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
if a[i] = C then
begin
Count := Count + 1;
tmpLast := i;
end;
end;
writeln;
if (Count = 0) then writeln('В массиве нет числа равное С')
else
begin
writeln('В массиве нашлось число, равное С');
if (Count = 1) then
writeln('Первое и единственное число в позиции a[', tmpLast, ']')
else
begin
i := 0;
repeat
i := i + 1;
tmpFirst := i;
until (a[i] = C);
writeln('Первое такое число a[', tmpFirst, ']');
writeln('Последнее такое число a[', tmpLast, ']');
end;
end;
readln;
end.
Ответ ......................................35629