а на паскале можно?
)
хотя уже не надо я уже придумал как сделать:
Program univalg;
var i,j,n,currenttown,c:integer;
f:text;
a:array[1..100,1..100] of byte;
line:array[1..100] of byte;
bool:array[1..100] of boolean;
flag:boolean;
begin
assign(f,'input.txt');
reset(f);
readln(f,n);
for i:=1 to n do
for j:=1 to n do
read(f,a[i,j]);
close(f);
for j:=1 to n do
begin
line[j]:=a[1,j];
bool[j]:=true;
end;
flag:=true;
i:=1;
currenttown:=0;
while flag do
begin
inc(currenttown);
for i:=1 to n do
if (line[i]=1)and(bool[i]) then
begin
c:=0;
bool[i]:=false;
for j:=1 to n do
begin
line[j]:=a[i,j] or line[j];
if line[j]=1 then
inc(c);
end;
end;
if (c=n)or(currenttown=n) then
flag:=false;
end;
assign(f,'output.txt');
rewrite(f);
if c=n then writeln(f,'Da')
else writeln(f,'Net');
close(f);
end.
Пасибо всем!