Cod sursa(job #1374392)

Utilizator mihai1996Toader Mihai mihai1996 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.