Anonymous user
Proper divisors: Difference between revisions
m
→{{header|Ada}}
m (→{{header|Ada}}) |
m (→{{header|Ada}}) |
||
Line 215:
Empty: Pos_Arr(1 .. 0);
function Arr(P: Positive) return Single_Pos_Arr is ((others =>
-- A: Pos_Arr(1..1) := (1 => P);
-- begin
Line 269:
{{out}}
<pre> 1 has 0 proper divisors:
2 has 1 proper divisors: 1
3 has 1 proper divisors: 1
4 has 2 proper divisors: 1
5 has 1 proper divisors: 1
6 has 3 proper divisors: 1
7 has 1 proper divisors: 1
8 has 3 proper divisors: 1
9 has 2 proper divisors: 1
10 has 3 proper divisors: 1
15120 has the maximum number of 79 proper divisors.</pre>
| |||