首页 > 试题广场 >

Program excpl; var x, y,...

[填空题] 
Program  excpl;
var
  x, y, y1, jk, j1, g, e : Integcr;
  a : array[l..20]of 0..9;
begin
  x := 3465;
  y := 264;
  jk := 20;
  for j1:= 1 to  20  do  a[j1] := 0;
  while y < > 0 do
  begin
    y1 := y mod 10;
    y := y div 10;
    while  y1 <> 0 do
    begin
      g := x;
      for  e:= Jk  downto  1  do
      begin
        g := g + a[e];
        a[e] := g mod 10;
        g := g div 10
      end;
      y1 := y1 - 1
    end;
    jk := jk - 1
  end;
  j1 = 1;
  while  a[j1] = 0 do  j1 := J1 + 1;
  for Jk:=j1 to 20 do  write(a[jk]: 4)
  WRITELN
End.
程序输出结果为： 1
查看正确选项
添加回答

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

提交观点

问题信息

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

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

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