Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Const Fi='HCHINH.INP';
Fo='HCHINH.OUT';
Var f,g: text;
A: array[1..1000] of longint;
i,n,d: longint;
Function hh(a: longint): boolean;
Var i,s: longint;
Begin
s:=0;
For i:=1 to a div 2 do
If a mod i = 0 then s:=s+i;
If a<>s then exit(false);
exit(true);
End;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Readln(f,n);
For i:=1 to n do Read(f,A[i]);
d:=0;
For i:=1 to n do
If hh(A[i]) then inc(d);
If d<>0 then
For i:=1 to n do
Begin
If hh(A[i]) then
Begin
Write(g,A[i],' ',i);
Writeln(g);
End;
End;
If d=0 then Write(g,'0');
Close(f);
Close(g);
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin