首页 > 试题广场 >

program exp1; var i, j, k :

[填空题] 
program exp1;
var
  i, j, k : integer;
  a : array[0..100]of integer;
begin
  for i:=0 to 100 do a[i] := i
  for k:=5 downto 2 do
  begin
    for i:=1 to 100 do if ( i mod k) = 0 then a[i]:=0;
    for i:=1 to 99 do
      for j:=1 to 100 - i do
        if a[j] > a[j + 1]then
        begin
          a[j] := a[j] + a[j + 1];
          a[j + 1] := a[j] - a[j + 1];
          a[j] := a[j] - a[j + 1];
        end;
  end;
  j:=1;
  while (a[j]= 0)and (j<100) do j:=j+1;
  for i:=j to 100 do a[0] = a[0]+a[i]; writeln(a[0]);
end.
本题的运行结果是 :1

查看正确选项
添加回答

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

提交观点

问题信息

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

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

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