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

题目解答

题目:
PROGRAM CHU7_3;
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;
READLN
END.
输入:12
输出:181 110 87 76 66 62 61 60
考点:
分析:
解答:
评论:
老师: