Largest proper divisor of n: Difference between revisions
→{{header|Ada}}
No edit summary |
|||
Line 39:
result : param_type := 1;
begin
for divisor in reverse 1 .. n
if n rem divisor = 0 then
result := divisor;
|