首页 > 试题广场 >

PROGRAM CHU7_3； VAR P，Q，S，T：

[填空题] 
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
输出：1
查看答案及解析
添加回答

这道题你会答吗？花几分钟告诉大家答案吧！

提交观点

问题信息

OI常识 普及
上传者：牛客309901号
难度：
0条回答 361浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

扫描二维码，关注牛客公众号