不是VIP会员,不能显示答案

题目解答

题目:
program gao7_2;
 var p,q,s,t:integer;
 begin
  readln(p);
  for q:=p+1 to 2*p do
  begin
   t:=0;s:=(p*q)mod(q-p);
   if s=0 then begin t:=p+q+(p*q)div(q-p);write(t:4);end;
   end;
  end.
输入12
输出:181 110 87 76 66 62 61 60
考点:
分析:
解答:
评论:
老师: