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；
READLN END.
输入：12 输出：
微信小程序
微信扫一扫体验
微信公众账号
微信扫一扫加关注
发表评论 取消回复