首页 > 试题广场 >

PROGRAM GAO7_3； VAR I，J，H，M，

[填空题] 
PROGRAM GAO7_3；
  VAR I，J，H，M，N，K：INTEGER；
      B   ：ARRAY[1..10]OF INTEGER；
  BEGIN
    READLN(N)；
      FOR I:=1 TO 10 DO
        BEGIN
        M：=N；J：=11；
        WHILE M>0 DO
          BEGIN J:=J-1；B[J]：=M MOD 10；M:=M DIV 10       END；
        FOR H:=J TO 10 DO     N:=N+B[H]；
        END；
     WRITELN(N)；
  END. 

输入1234      输出： 1
查看正确选项
添加回答

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

提交观点

问题信息

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

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

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