首页 > 试题广场 >

var a, b, i, tot, c1, c2 : i

[填空题] 
var
  a, b, i, tot, c1, c2 : integer;
begin
  readln(a, b);
  tot := 0;
  for i:=a to b do
  begin
    c1 := i div 10;
    c2 := i mod 10;
    if (c1 + c2) mod 3 = 0 then
      inc(tot);
  end;
  writeln(tot);
end.
输入 : 7 31
输出 :1
查看答案及解析
添加回答

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

提交观点

问题信息

完善程序-Pascal 提高 Pascal 数学
上传者：牛客309901号
难度：
0条回答 1071浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

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