Дано натуральное число n> 1.равно ли оно сумме своих делителей(включая единицу, но не включая себя)? нужен циклический алгоритм решения данной в паскале.

Program digit; const min = 1; var n, sum, i: integer; begin write('n = '); readln(n); if n < = min then writeln('число n должно быть больше ', min) else begin sum : = 0; for i : = min to n - 1 do if n mod i = 0 then sum : = sum + i; if n = sum then writeln('число ', n, ' равно сумме своих делителей') else writeln('число ', n, ' не равно сумме своих делителей'); end; readln; end.

Max: =100 for q: =2 to max do begin sum: =0; for q1: =1 to q-1do if (q mod q1=0) then sum: =sum+q1; if q=sum then writeln(q,'-искомое'); end;

80 кбайт ( 32*40*64=81920 символов где каждый символ равен 8 битами и 1 байту                                                                                                                   81920/1024=80 

1С7₁₆ = 111000111₂ = 707₈ = 455₁₀

Объяснение:

1С7₁₆ делим на цифры и переводим в 2 СС

1₁₆ = 1₁₀ = 1₂ (не добавляем впереди 0, чтобы число занимало 4 позиции, т.к. число будет первым)

С₁₆ = 12₁₀ = 1100₂

12 / 2 = 6 + остаток 0

6 / 2 = 3 + остаток 0

3 / 2 = 1 + остаток 1

1 / 2 = 0 + остаток 1

записываем снизу вверх

7₁₆ = 7₁₀ = 111₂ = 0111₂ (добавляем впереди 0, чтобы число занимало 4 позиции)

7 / 2 = 3 + остаток 1

3 / 2 = 1 + остаток 1

1 / 2 = 0 + остаток 1

записываем снизу вверх

1С7₁₆ = 111000111₂ (собираем всё вместе)

111000111₂ - делим на тройки начиная с конца и переводим в 10 СС

111₂ = 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 4 + 2 + 1 = 7₁₀

000₂ = 0₁₀

111₂ = 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 4 + 2 + 1 = 7₁₀

записываем снизу вверх и получаем 8 СС

1С7₁₆ = 707₈

707₈ = 7 * 8² + 0 * 8¹ + 7 * 8⁰ = 7 * 64 + 7 * 1 = 448 + 7 = 455₁₀

1С7₁₆ = 455₁₀

1С7₁₆ = 1 * 16² + С * 16¹ + 7 * 16⁰ = 1 * 256 + 12 * 16 + 7 * 1 = 256 + 192 + 7 = 455₁₀