Khổng NT
Lượt Thích
2

Tham gia ngày
Được nhìn thấy lần cuối

Tường Hoạt động mới Bài viết Giới thiệu

  • Tuấn ơi, xin code bài Mines với!!!
    Khổng NT
    Khổng NT
    inc(b[i,j+1]);
    inc(b[i-1,j-1]);
    inc(b[i-1,j]);
    inc(b[i-1,j+1]);
    inc(b[i+1,j-1]);
    inc(b[i+1,j]);
    inc(b[i+1,j+1]);
    end;
    end;
    readln;
    Khổng NT
    Khổng NT
    end;
    for i:=1 to n do
    begin
    for j:=1 to m do
    begin
    if c[i,j]='*' then write('*')
    else write(b[i,j]);
    end;
    writeln;
    end;
    End.
    02-07-2019.
    02-07-2019.
    Oke, cảm ơn! :D
  • Đang tải…
  • Đang tải…
  • Đang tải…
Top Bottom