Найти натуральное число от 1 до 10000 с максимальной суммой делителей
Категория: Delphi/Pascal
2011-08-25 22:43:11
code: #pascal
- Function MaxSum(I:Integer):Integer;
- Var J,S:Integer;
- Begin
- S:=0;
- For J:=1 to I Do
- If I Mod J = 0 Then
- S:=S+J;
- MaxSum:=S;
- End;
- Var I,Max:Integer;
- Begin
- Max:=1;
- For I:=2 to 10000 Do
- If MaxSum(I) > MaxSum(Max) Then
- Max:=I;
- WriteLn(Max,' ',MaxSum(Max));
- ReadLn;
- End.
Поделиться: