<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var m:=1 to ReadInteger('n=')-1 do begin
var s:=0;
for var i:=1 to m div 2 do
if m mod i=0 then s+=i;
if m=s then Writeln(m)
end
end.
<u>Пример</u>
n= 10000
6
28
496
8128
<span><span><span>Придумайте несколько вариантов описания одного и того же объекта для разных целей.
</span></span><span><span>
</span></span></span>
1 алфавит 32=2^5. 1символ 5 бит. объем =5*20=100бит. 2 алфавит 64=2^6 1символ 6 бит. объем 6*15=90бит. 100-90=на 10бит 1>2
Думаю, что могут. Если надо узнать правило по которому создаются элементы, то это корень квадратный от значения индекса элемента массива