Cod sursa(job #1374392)
| Utilizator | Data | 5 martie 2015 08:50:59 | |
|---|---|---|---|
| Problema | Paduri de multimi disjuncte | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.56 kb |
program multimis;
var t,rg:array[1..100000] of longint;
tip,n,m,x,y:longint;
begin
assign(input,'disjoint.in'); reset(input);
assign(output,'disjoint.out'); rewrite(output);
readln(f,n,m);
for i:=1 to m do
begin
readln(tip,x,y);
rx:=radacina(x);
ry:=radacina(y);
case tip of
1: begin
end;
2: begin
if rx=ry then
writeln('DA') else
writeln('NU');
end;
end;
end;
close(input); close(output);
end.