|
|
back to boardCommon BoardWhat wrong in this??? Why I'm get WA??? I Think, what my program is right... Please help me... (Problem 1118) This is my program:
{$N+}
Program n1118;
Var
i,j,q,w,sum,ans:longint;
triv:extended;
Procedure Input;
Begin
ReadLn(i,j);
End;
Procedure Solve;
Begin
triv:=1000000;
ans:=0;
For q:=j downto i Do
Begin
sum:=1;
For w:=2 to (q div 2) Do
If (q mod w)=0 Then
sum:=sum+w;
If sum=1 Then
Begin
Write(q);
Halt;
End;
If sum/q<triv Then
Begin
triv:=sum/q;
ans:=q;
End;
End;
Write(ans);
End;
Begin
Input;
Solve;
End. Triviality of 1 = 0 > This is my program:
>
> {$N+}
> Program n1118;
> Var
> i,j,q,w,sum,ans:longint;
> triv:extended;
>
> Procedure Input;
> Begin
> ReadLn(i,j);
> End;
>
> Procedure Solve;
> Begin
> triv:=1000000;
> ans:=0;
> For q:=j downto i Do
> Begin
> sum:=1;
> For w:=2 to (q div 2) Do
> If (q mod w)=0 Then
> sum:=sum+w;
> If sum=1 Then
> Begin
> Write(q);
> Halt;
> End;
> If sum/q<triv Then
> Begin
> triv:=sum/q;
> ans:=q;
> End;
> End;
> Write(ans);
> End;
>
> Begin
> Input;
> Solve;
> End. |
|
|
