|
1
|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
10
|
|
11
|
12
|
13
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
|
21
|
22
|
23
|
24
|
25
|
26
|
27
|
28
|
29
|
30
|
|
31
|
32
|
33
|
34
|
35
|
36
|
37
|
38
|
39
|
40
|
|
41
|
42
|
43
|
44
|
45
|
46
|
47
|
48
|
49
|
50
|
|
51
|
52
|
53
|
54
|
55
|
56
|
57
|
58
|
59
|
60
|
|
61
|
62
|
63
|
64
|
65
|
66
|
67
|
68
|
69
|
70
|
|
71
|
72
|
73
|
74
|
75
|
76
|
77
|
78
|
79
|
80
|
|
81
|
82
|
83
|
84
|
85
|
86
|
87
|
88
|
89
|
90
|
|
91
|
92
|
93
|
94
|
95
|
96
|
97
|
98
|
99
|
100
|
Натуральное число, равное сумме всех своих собственных
делителей (т. е.
всех положительных делителей, отличных от самого́ числа). По мере того как натуральные
числа возрастают,
совершенные числа встречаются всё реже.
Совершенные числа образуют
последовательность:
6, 28, 496, 8128, 33550336, 8589869056…
Процедура в Excel
Public Sub Совершенное()
For v = 1 To 100
summa = 0
Call маклер(v)
Call нетЗаливки
For v1 = 1 To v - 1
If v Mod v1 = 0 Then 'делится
summa = summa + v1
Else
End If
Next v1
If summa = v Then Call желтый
Next v
Cells.Select
Cells.EntireColumn.AutoFit
End Sub
| 
