Messages posted by: MarioTalevski

Еве го модифицираф кодо ама сепак не работи

#include<iostream>
using namespace std;

int n,m,br=0;
bool t;
char mat[101][101];
int poseten[101][101];

void dfs(int x,int y)
{
    t=true;
    poseten[x][y]=1;
    if ((x>0)&&(x<n)&&(y>0)&&(y<m)) if (poseten[x+1][y]==0) dfs(x+1,y);
    if ((x>0)&&(x<n)&&(y>0)&&(y<m)) if (poseten[x-1][y]==0) dfs(x-1,y);
    if ((x>0)&&(x<n)&&(y>0)&&(y<m)) if (poseten[x][y+1]==0) dfs(x,y+1);
    if ((x>0)&&(x<n)&&(y>0)&&(y<m)) if (poseten[x][y-1]==0) dfs(x,y-1);
    if ((x>0)&&(x<n)&&(y>0)&&(y<m)) if (poseten[x+1][y+1]==0) dfs(x+1,y+1);
    if ((x>0)&&(x<n)&&(y>0)&&(y<m)) if (poseten[x-1][y-1]==0) dfs(x-1,y-1);
    if ((x>0)&&(x<n)&&(y>0)&&(y<m)) if (poseten[x+1][y-1]==0) dfs(x+1,y-1);
    if ((x>0)&&(x<n)&&(y>0)&&(y<m)) if (poseten[x-1][y+1]==0) dfs(x-1,y+1);
}

int main()
{

cin >> n >> m;

for(int i=0;i<n;i++)
    {
        for(int j=0;j<m;j++)
        {
            cin >> mat[i][j];
            if(mat[i][j]=='*')
            {
                poseten[i][j]==1;
            }
            else
            {
                poseten[i][j]=0;
            }
        }
    }

for(int i=0;i<n;i++)
    {
        for(int j=0;j<m;j++)
        {
            if(poseten[i][j]==0)
            {
                 dfs(i,j);
                 if(t)
                 {
                     br++;
                 }
                 t=false;
            }
        }
    }

cout ><< br;

return 0;

}

tStojkovski wrote:

Две различни парчиња се дел од исто нафтено поле ако тие граничат вертикално, хоризонтално или дијагоналано.

Pa znam ubo ja razbrav zadacata ama neznam oti ne mi funkcionira kodot

Lord_of_Life wrote:Ред 58: cout ><< br;
WTF?

Ne e do to problemo nagreska go dopisaf to ....

Па скоро на сите тест примери паѓа
http://mendo.mk/Task.do?id=277

#include<iostream>
using namespace std;

int n,m,br=0;
bool t;
char mat[101][101];
int poseten[101][101];

void dfs(int x,int y)
{
    t=true;
    poseten[x][y]=1;
    if (x>0) if (poseten[x-1][y]==0) dfs(x-1,y);
    if (x<n) if (poseten[x+1][y]==0) dfs(x+1,y);
    if (y>0) if (poseten[x][y-1]==0) dfs(x,y-1);
    if (y<m) if (poseten[x][y+1]==0) dfs(x,y+1);
}

int main()
{

cin >> n >> m;

for(int i=0;i<n;i++)
    {
        for(int j=0;j<m;j++)
        {
            cin >> mat[i][j];
            if(mat[i][j]=='*')
            {
                poseten[i][j]==1;
            }
            else
            {
                poseten[i][j]=0;
            }
        }
    }

for(int i=0;i<n;i++)
    {
        for(int j=0;j<m;j++)
        {
            if(poseten[i][j]==0)
            {
                 dfs(i,j);
                 if(t)
                 {
                     br++;
                 }
                 t=false;
            }
        }
    }

cout << br;

return 0;

}

можи некој да ми кажи кај грешам ?

http://mendo.mk/Task.do?id=19

Во првиот тест пример е вака:
Влез: 12345 3 Излез:45
но ако ги исфрлеме цифрите 1,2,3 и ни остануваат цифрите 4 и 5 тогаш најголемиот позитивен број што може да се формира од овие цифри е 54 а не 45 како што гласи во Излезот на првиот тест пример.

Кога ќе биде објавена листата за поканети натпреварувачи за натпреварот и каде точно ќе се одржи?

За math незнам , но crt е забрането за користење.

Sakav so string da ja resham a znaef deka mozi i so mod i div da ja reshavam sekogash idiotskiot nachin go biram xD

Абе 23 = 2 / 3 = 0,666 = (666) а сите знаеме тоа што значи

Ete uste eden oj problem

Роденден
http://mendo.mk/Task.do?id=41
_____________________________

program rodenden;

var i,j,pom:integer;
    n:string[5];

begin

readln(n);
	pom:=1;
	j:=0;
	
for i:=pom to length(n) do
    begin
      if (n[i]='0') or (n[i]='00') or (n[i]='000') or (n[i]='0000') or (n[i]='00000') 
	   then begin j:=j+1; end;
	  if (n[i]='0') then begin  pom:=pom+1; end;
	  if (n[i]='00')  then begin  pom:=pom+2; end;
	  if (n[i]='000')  then begin  pom:=pom+3; end;
	  if (n[i]='0000') then begin  pom:=pom+4; end;
	  if (n[i]='00000') then begin pom:=pom+5; end;
	 end;
	
for i:=pom to length(n) do
    begin
      if (n[i]='1') or (n[i]='11') or (n[i]='111') or (n[i]='1111') or (n[i]='11111') 
	   then begin j:=j+1; end;
	  if (n[i]='1') then begin  pom:=pom+1; end;
	  if (n[i]='11')  then begin  pom:=pom+2; end;
	  if (n[i]='111')  then begin  pom:=pom+3; end;
	  if (n[i]='1111') then begin  pom:=pom+4; end;
	  if (n[i]='11111') then begin pom:=pom+5; end;
	 end;
	
for i:=pom to length(n) do
    begin
      if (n[i]='2') or (n[i]='22') or (n[i]='222') or (n[i]='2222') or (n[i]='22222') 
	   then begin j:=j+1; end; 
	  if (n[i]='2') then begin  pom:=pom+1; end;
	  if (n[i]='22')  then begin  pom:=pom+2; end;
	  if (n[i]='222')  then begin  pom:=pom+3; end;
	  if (n[i]='2222') then begin  pom:=pom+4; end;
	  if (n[i]='22222') then begin pom:=pom+5; end;
	 end;
	
for i:=pom to length(n) do
    begin
      if (n[i]='3') or (n[i]='33') or (n[i]='333') or (n[i]='3333') or (n[i]='33333') 
	   then begin j:=j+1; end;
	  if (n[i]='3') then begin  pom:=pom+1; end;
	  if (n[i]='33')  then begin  pom:=pom+2; end;
	  if (n[i]='333')  then begin  pom:=pom+3; end;
	  if (n[i]='3333') then begin  pom:=pom+4; end;
	  if (n[i]='33333') then begin pom:=pom+5; end;
	 end;

for i:=pom to length(n) do
    begin
      if (n[i]='4') or (n[i]='44') or (n[i]='444') or (n[i]='4444') or (n[i]='44444') 
	   then begin j:=j+1; end;
	  if (n[i]='4') then begin  pom:=pom+1; end;
	  if (n[i]='44')  then begin  pom:=pom+2; end;
	  if (n[i]='444')  then begin  pom:=pom+3; end;
	  if (n[i]='4444') then begin  pom:=pom+4; end;
	  if (n[i]='44444') then begin pom:=pom+5; end;
	 end;
	
 for i:=pom to length(n) do
    begin
      if (n[i]='5') or (n[i]='55') or (n[i]='555') or (n[i]='5555') or (n[i]='55555') 
	   then begin j:=j+1; end;
	  if (n[i]='5') then begin  pom:=pom+1; end;
	  if (n[i]='55')  then begin  pom:=pom+2; end;
	  if (n[i]='555')  then begin  pom:=pom+3; end;
	  if (n[i]='5555') then begin  pom:=pom+4; end;
	  if (n[i]='55555') then begin pom:=pom+5; end;
	 end;
	
 for i:=pom to length(n) do
    begin
      if (n[i]='7') or (n[i]='77') or (n[i]='777') or (n[i]='7777') or (n[i]='77777') 
	   then begin j:=j+1; end;
	  if (n[i]='7') then begin  pom:=pom+1; end;
	  if (n[i]='77')  then begin  pom:=pom+2; end;
	  if (n[i]='777')  then begin  pom:=pom+3; end;
	  if (n[i]='7777') then begin  pom:=pom+4; end;
	  if (n[i]='77777') then begin pom:=pom+5; end;
	 end;
	
 for i:=pom to length(n) do
    begin
      if (n[i]='8') or (n[i]='88') or (n[i]='888') or (n[i]='8888') or (n[i]='88888') 
	   then begin j:=j+1; end;
	  if (n[i]='8') then begin  pom:=pom+1; end;
	  if (n[i]='88')  then begin  pom:=pom+2; end;
	  if (n[i]='888')  then begin  pom:=pom+3; end;
	  if (n[i]='8888') then begin  pom:=pom+4; end;
	  if (n[i]='88888') then begin pom:=pom+5; end;
	 end;

for i:=pom to length(n) do
    begin
      if (n[i]='6') or (n[i]='66') or (n[i]='666') or (n[i]='6666') or (n[i]='66666') or (n[i]='9') or (n[i]='99') or (n[i]='999') or (n[i]='9999') or (n[i]='99999') 
	   then begin j:=j+1; end;
	  if (n[i]='6') or (n[i]='9') then begin  pom:=pom+1; end;
	  if (n[i]='66') or (n[i]='99') then begin  pom:=pom+2; end;
	  if (n[i]='666') or (n[i]='999')  then begin  pom:=pom+3; end;
	  if (n[i]='6666') or (n[i]='9999') then begin  pom:=pom+4; end;
	  if (n[i]='66666') or (n[i]='99999') then begin pom:=pom+5; end;
	 end;

writeln(j);

end.

na 16 test primeri pagja. xD

Важно со хак се занимава.

Едниствено што памтам од пајтон е input_raw xD!

Ќе ја внесам во викито.

Да не знај некој шо му е маката? Методот на решавање ми е лјуфнат ама сепак интересно ми беше

Мој Број
http://mendo.mk/Task.do?id=3
__________________________________________________________________

program moj_broj;

var stefan,ana,eden,dva,tri,cetiri,pet,ses:integer;

procedure prva;

var e,a,b,c,broj1,broj2,broj3,prvacifra,vtoracifra,tretacifra,zbir1,rezultat:integer;

begin

readln(a);
        readln(b);
	eden:=a;
	dva:=b;
	e:=a;
	broj1:=a;
	broj2:=a;
	broj3:=a;
	broj1:=broj1 div 100;
	broj2:=broj2 div 10;
	broj2:=broj2 mod 10;
	broj3:=broj3 mod 10;	
	rezultat:=(broj1 + broj2 + broj3);
	if (e mod rezultat = 0) then
		begin
		stefan:=stefan+2;
		ana:=ana-1;
		end	
	else if (b mod rezultat
 = 0) then
		begin
		ana:=ana+2;
		stefan:=stefan-1;
		end
	else
		begin
		stefan:=stefan;
		ana:=ana;
		end;

end;

procedure vtora;

var e,a1,b1,c,broj1,broj2,broj3,prvacifra,vtoracifra,tretacifra,zbir1,rezultat:integer;

begin

readln(a1,b1);
	tri:=a1;
	cetiri:=b1;
	e:=a1;
	broj1:=a1;
	broj2:=a1;
	broj3:=a1;
	broj1:=broj1 div 100;
	broj2:=broj2 div 10;
	broj2:=broj2 mod 10;
	broj3:=broj3 mod 10;	
	rezultat:=(broj1 + broj2 + broj3);
	if (e mod rezultat = 0) then
		begin
		stefan:=stefan+2;
		ana:=ana-1;
		end	
	else if (rezultat mod b1 = 0) then
		begin
		ana:=ana+2;
		stefan:=stefan-1;
		end
	else
		begin
		stefan:=stefan;
		ana:=ana;
		end;

end;

procedure treta;

var e,a2,b2,c,broj1,broj2,broj3,prvacifra,vtoracifra,tretacifra,zbir1,rezultat:integer;

begin

readln(a2,b2);
	pet:=a2;
	ses:=b2;
	e:=a2;
	broj1:=a2;
	broj2:=a2;
	broj3:=a2;
	broj1:=broj1 div 100;
	broj2:=broj2 div 10;
	broj2:=broj2 mod 10;
	broj3:=broj3 mod 10;	
	rezultat:=(broj1 + broj2 + broj3);
	if (e mod rezultat = 0) then
		begin
		stefan:=stefan+2;
		ana:=ana-1;
		end	
	else if (rezultat mod b2 = 0) then
		begin
		ana:=ana+2;
		stefan:=stefan-1;
		end
	else
		begin
		stefan:=stefan;
		ana:=ana;
		end;

end;

begin

stefan:=0;
	ana:=0;
	prva;
	vtora;
	treta;
	readln(stefan,ana);
	if (stefan > ana) then
		begin
			writeln(stefan,ana,' ','Stefan');
		end;

if (ana > stefan) then
		begin
			writeln(stefan,ana,' ','Ana');
		end;

if (stefan = ana) then
		begin
			 if ((eden > dva) and (eden > tri) and (eden > cetiri) and (eden > pet) and (eden > ses)) then writeln(stefan,ana,' ','Stefan');
		     if ((dva > eden) and (dva > tri) and (dva > cetiri) and (dva > pet) and (dva > ses)) then writeln(stefan,ana,' ','Ana');
			 if ((tri > eden) and (tri > dva) and (tri > cetiri) and (tri > pet) and (tri > ses)) then writeln(stefan,ana,' ','Stefan');
			 if ((cetiri > eden) and (cetiri > dva) and (cetiri > tri) and (cetiri > pet) and (cetiri > ses)) then writeln(stefan,ana,' ','Ana');
			 if ((pet > eden) and (pet > dva) and (pet > tri) and (pet > cetiri) and (pet > ses)) then writeln(stefan,ana,' ','Stefan');
			 if ((ses > eden ) and (ses > dva) and (ses > tri) and (ses > cetiri) and (ses > pet)) then writeln(stefan,ana,' ','Ana');
		end;

end.

program prekinuvaci;

begin

writeln('NE');

end.

Ete kako se vadat 10 boda na cetvrtata.