社区讨论

答案发布

BBlue_Sky
P2670[NOIP 2015 普及组] 扫雷游戏参与者 15已保存回复 14

讨论操作

快速查看讨论及其快照的属性，并进行相关操作。

当前回复
14 条
当前快照
1 份
快照标识符
@mi4f004h
此快照首次捕获于
2025/11/18 18:12
4 个月前
此快照最后确认于
2025/11/18 18:17
4 个月前
查看原帖
CPP
var a:array [0..106,0..106] of longint;
    n,m,i,j:longint;
    st:string;
begin
  readln(n,m);
  for i:=1 to n do
  begin
      readln(st);
      for j:=1 to length(st) do
      if st[j]='*' then
      begin
        a[i,j]:=-32767;
        inc(a[i-1,j-1]); inc(a[i-1,j]); inc(a[i-1,j+1]);
        inc(a[i,j-1]); inc(a[i,j+1]); inc(a[i+1,j-1]); inc(a[i+1,j]); inc(a[i+1,j+1]);
      end;
  end;
  for i:=1 to n do
  begin
    for j:=1 to m do
    if a[i,j]>-1 then write(a[i,j]) else write('*');
    writeln;
  end;
end.

回复

共 14 条回复，欢迎继续交流。

正在加载回复...