首页 > 试题广场 >

PROGRAM GAO7_2； VAR P，Q，...

[填空题] 
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      输出 1
查看正确选项
添加回答

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

提交观点

问题信息

提高 OI常识
上传者：牛客309901号
难度：
0条回答 547浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

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