Синформатикой, напишите программу на vb.net два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого (само и другое число в качестве делителя не рассматривается). найти все пары дружественных чисел, которые меньше n (n вводится с клавиатуры) пример дружественных чисел: 220 и 284, т.к. сумма делителей 220 = 1+2+4+5+10+11+20+22+44+55+110=284 сумма делителей 284 = 1+2+4+71+142=220

Код на 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

Код буквы трехзначный, начинающийся с 1, или однозначный (0 для с). 8сf8(16) = 1000 1100 1111 1000(2) 100 - к 0 - с 110 - о 0 - с 111 - л 110 - о 0 - с 0 - с получается ксослосс, т.е. ответ номер 3.