Thứ Hai, 24 tháng 4, 2023

vbgrass pascal

var    a:array[0..1000,0..1000] of char;
       j,i,m,n,d:longint;
procedure nhap;
var i,j:longint;
begin
    readln(m,n);
    for i:=1 to m do
    begin
        for j:=1 to n do read(a[i,j]);
        readln;
    end;
end;
procedure giai;
var i,j:longint;
begin
    for i:=1 to m do
        for i:=1 to n do
            if (a[i,j]= '#') and (a[i-1,j]<> '#') and (a[i,j-1]<> '#') then
                inc(d);
    write(d);
end;
begin
   // assign(input, 'vbgrass.inp');reset(input);
   // assign(output, 'vbgrass.out');rewrite(output);
    nhap;
    giai;
end.

vbgrass c++

#include<bits/stdc++.h>
using namespace std;
char a[1000][1000];
int r,c;
void nhap()
{
    cin>>r>>c;
    for(int i=1;i<=r;i++)
    {
        for(int j=1;j<=c;j++) 
            cin>>a[i][j];
    }
}
void giai()
{
    int d=0;
    for(int i=1;i<=r;i++)
       for(int j=1;j<=c;j++)
          if(a[i-1][j]!='#'&&a[i][j+1]!='#'&&a[i][j]=='#') d++;
    cout<<d;
}
int main()
{
   // freopen("vbgrass.inp","r",stdin);
   // freopen("vbgrass.out","w",stdout);
    nhap();
    giai(); 
}

Chủ Nhật, 23 tháng 4, 2023

Thứ Bảy, 22 tháng 4, 2023

Đề thi học sinh giỏi lớp 12 môn tin học tỉnh Nam Định năm 2022 - 2023

 Mời các bạn tham khảo

Đề thi học sinh giỏi lớp 12 môn tin học tỉnh Nam Định năm 2022 - 2023


Đề thi chọn đội tuyển môn tin học tỉnh Khánh Hòa vòng 2 năm 2022 - 2023

 Mời các bạn tham khảo

Đề thi chọn đội tuyển môn tin học tỉnh Khánh Hòa vòng 2 năm 2022 - 2023


Đề thi học sinh giỏi lớp 12 môn tin học tỉnh Kiên Giang năm 2022 - 2023

 Mời các bạn tham khảo

Đề thi học sinh giỏi lớp 12 môn tin học tỉnh Kiên Giang năm 2022 - 2023


Đề thi học sinh giỏi lớp 11 môn tin học tỉnh Quảng Bình năm 2022 - 2023

 Mời các bạn tham khảo

Đề thi học sinh giỏi lớp 11 môn tin học tỉnh Quảng Bình năm 2022 - 2023