|
Вернуться
| 1 Кэп, 16 апреля 2010 г. 17:33:32 | |
|
Видимо имелось ввиду - мешок с удобрениями, за появление которых нужно сказать спасибо пищеварению
|
|
|
| 2 Ниненко А. Е, 16 апреля 2010 г. 16:05:48 | |
|
мешок - по вашему ругательство?
|
|
|
| 3 random, 14 апреля 2010 г. 19:11:05 | |
|
Please, don't help him!
|
|
|
| 4 Accepted, 13 апреля 2010 г. 18:46:24 | |
var
a:array [1..10001,1..10001] of longint;
col:array [1..10001] of longint;
i,x,y,n,m,j:longint;
procedure dfs(v:longint);
begin
for i:=1 to n do
if a[v,i]=1 then
begin
if col[i]=1 then col[v]:=2;
if col[i]=2 then col[v]:=1;
end;
for i:=1 to n do
if a[v,i]=1 then
if col[i]=col[v] then
begin
write('NO');
Close(output);
halt;
end;
for j:=1 to n do
if (a[v,j]=1)and(col[j]=0) then dfs(j);
end;
begin
reset(input,'input.txt');
rewrite(output,'output.txt');
readln(n,m);
for i:=1 to m do
begin
readln(x,y);
a[x,y]:=1;
a[y,x]:=1;
end;
for i:=1 to n do
if col[i]=0 then begin col[i]:=1; dfs(i); end;
write('YES');
end.
|
|
|
| 5 Seidazimov Nurbol, 13 апреля 2010 г. 18:21:25 | |
|
я уже помог тебе !!!! мешок!!!
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| |
