Путем пошаговой детализации составьте программы графическим исполнителем для решения следующей : расчертить все поле горизонтальными пунктирными линиями. нужно, ))

пока не конец экрана(поля) делать:

      рисовать вправо 10 точек, шаг вправо 10 точек

 

шаг вниз на 1 точку

 

пока не начало экрана(поля) делать:

      рисовать влево 10 точек, шаг влево 10 точек

 

шаг вниз на 1 точку

если не конец экрана(поля) перейти в начало программы  иначе выход

 

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

Вкоторых сумма двух чисел в некоторой системе счисления дает цифру ноль в последнем разряде результата, просты. ноль означает, что получено число, которое в данной системе счисления записывается, как 10 (ноль остается, а единица переносится в следующий разряд). а 10, как известно - это запись основания системы счисления в самой этой системе. например, 4₁₀+6₁₀ = 10₁₀; 1₂+1₂ = 10₂ = 2₁₀; 5₈+3₈ = 10₈ = 8₁₀; в нашем случае последние цифры слагаемых тоже 10. 4(q)+3(q)=10(q). но мы знаем, что 4+3=7 в привычной нам системе, поэтому q=7 ответ: в семиричной.