|
|
|
|
|
|
|
Вернуться
| 21 Nurzhanov Yesengeldi Armanovich, 09 марта 2010 г. 14:09:50 | |
|
*Кричу*
|
|
|
| 22 Nurzhanov Yesengeldi Armanovich, 09 марта 2010 г. 14:09:19 | |
|
666
|
|
|
| 23 Nurzhanov Yesengeldi Armanovich, 09 марта 2010 г. 14:08:58 | |
ээээээееееее!
че молчим!!
|
|
|
| 24 Nurzhanov Yesengeldi Armanovich, 09 марта 2010 г. 14:07:06 | |
|
x))))))))
|
|
|
| 25 Ainura, 09 марта 2010 г. 14:04:07 | |
|
"Гонцов Юрий Василиевич" samozvanec eto "HazrKapezovaZhandosaAKTL", LUDI ON LOH POSLEDNII!!!
|
|
|
| 26 Гонцов Юрий Василиевич, 09 марта 2010 г. 14:03:37 | |
Я из России вы дошли до двухсот
Поздравляю!!!
|
|
|
| 27 Гонцов Юрий Василиевич, 09 марта 2010 г. 14:02:04 | |
Это код задачи 151_Банкет:
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.
|
|
|
| 28 Nurzhanov Yesengeldi Armanovich, 09 марта 2010 г. 14:00:37 | |
|
>< пишем все
|
|
|
| 29 Гонцов Юрий Василиевич, 09 марта 2010 г. 14:00:10 | |
|
Dota , Pascal , CS , HL , Informatika Rules!!!
|
|
|
| 30 Гонцов Юрий Василиевич, 09 марта 2010 г. 13:58:57 | |
|
DOTA RULIT
|
|
|
| 31 Ainura, 09 марта 2010 г. 13:58:24 | |
|
Kto ne igraet v DOTU tot NOOB)))
|
|
|
| 32 Nurzhanov Yesengeldi Armanovich, 09 марта 2010 г. 13:58:13 | |
|
или в мясо!!! в хл!!!
|
|
|
| 33 Nurzhanov Yesengeldi Armanovich, 09 марта 2010 г. 13:57:52 | |
|
го еще в кс!!!
|
|
|
| 34 Гонцов Юрий Василиевич, 09 марта 2010 г. 13:57:25 | |
Это код задачи 151_Банкет:
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.
|
|
|
| 35 Гонцов Юрий Василиевич, 09 марта 2010 г. 13:57:14 | |
Это код задачи 151_Банкет:
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.
|
|
|
| 36 Гонцов Юрий Василиевич, 09 марта 2010 г. 13:57:00 | |
Это код задачи 151_Банкет:
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.
|
|
|
| 37 Ainura, 09 марта 2010 г. 13:56:59 | |
|
Vashe prikolna9a igra, sovetuu vsem!!!
|
|
|
| 38 Nurzhanov Yesengeldi Armanovich, 09 марта 2010 г. 13:56:29 | |
|
го все в гарену!!
|
|
|
| 39 Ainura, 09 марта 2010 г. 13:56:11 | |
|
Kto igraet v DOTU???
|
|
|
| 40 Nurzhanov Yesengeldi Armanovich, 09 марта 2010 г. 13:55:39 | |
|
тема жива!!!!
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
