首页 > 试题广场 >

var a, b: array[0..2] of int

[填空题] 
var
  a, b: array[0..2] of integer;
  i, j, tmp: integer;
begin
  for i := 0 to 2 do
    read(b[i]);
  for i := 0 to 2 do
  begin
    a[i] := 0;
    for j := 0 to i do
    begin
      inc(a[i], b[j]);
      inc(b[a[i] mod 3], a[j]);
    end;
  end;
  tmp := 1;
  for i := 0 to 2 do
  begin
    a[i] := a[i] mod 10;
    b[i] := b[i] mod 10;
    tmp := tmp * (a[i] + b[i]);
  end;
  writeln(tmp);
end.
输入：2 3 5
输出：1
查看正确选项
添加回答

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

提交观点

问题信息

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

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

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