1.Переведём Кбайты в байты: 15(Кбайт) * 1024(байт в 1 Кбайт) = 15360 байт (кол-во файла).
2.Найдём скорость соединения: 15360 байт / 120 сек = 128 байт/с (байт в секунду).
Переведём дополнипельную скорость соеднения: 512(бит/с) / 8(бит в 1 байт) = 64 байт/с.
Теперь скорость будет равна 128 байт/с + 64 байт/с = 192 байт/с
Осталось найти время передачи: 15360(байт) / 192(байт/с) = 80с
Ответ: 80секунд.
Ответ будет
167.152.184.255
Программа работает в следующем виде:
n = InputBox(vbLf & "Напиши значение ""n"" (количество расчетов)")
ReDim X(n)
ReDim Y(n)
Randomize
For i = 1 To n
X(i) = 5 - 10 * Rnd
Next
S = 0
For Each b In X
S = S + X(1) / i
Next
MsgBox "S=" & S
Нижние строки я убрал, потому что не понял, зачем они и что должны выводить: в задании про них ничего не сказано.
На паскале:
var a:integer;
begin
writeln('Введите целое положительное число');
read(a);
if a mod 2 = 0 then writeln('Число чётное')
else writeln('Число нечётное');
end.