(20 * 20)/100=4 Мб.
(1024*1024*8*4)/220=152 520 с.
152 520 + 5 + 1 = 152 526 с.
(1024*1024*20*8)/220=762 601 с.
Ответ : А.
P.S.А ты уверен,что так не килобайты в секунду?
Выдаст произведение следующих чисел
2*5*2*4*2*3*2*2*2*1=3840
343 (8сс) = 11 100 011 (2сс)
Код на VBScript - проверялся, работает
Function SumOfDividers(ByVal num)
SumOfDividers = 0
for i = 1 to num - 1
if num mod i = 0 then SumOfDividers = SumOfDividers + i
next
End Function
Sub Zadanie23317569(ByVal n)
for i = 2 to n
k = SumOfDividers(i)
if SumOfDividers(k) = i then Msgbox i & " " & k
next
End Sub
Zadanie23317569 300
Код на VB.Net - исправление как догадалась, не проверялось
Sub Main(ByVal n)
Dim i As Integer
Dim k As Integer
for i = 2 to n
k = SumOfDividers(i)
if SumOfDividers(k) = i then Console.WritelLine(i & " " & k)
next
End Sub
Function SumOfDividers(ByVal num As Integer) As Integer
Dim i As Integer
SumOfDividers = 0
for i = 1 to num - 1
if num mod i = 0 then SumOfDividers = SumOfDividers + i
next
End Function
Прокладка кабелей, установка оборудования