program teeem;
type ma=record
     k,t:integer;
     end;
var f,g:text;
a:array[1..300,1..300] of integer;
v,viz,pred:array[1..300] of integer;
x:array[1..32000] of ma;
i,j,sf,st,n,m,c:integer;
ok:boolean;
procedure df(nod:longint);
var k:longint;
begin
for k:=1 to n do
   if (a[nod,k]=1)and(viz[k]=0) then
      begin
      pred[k]:=nod;
      viz[k]:=1;
      df(k);
      end;
end;
  begin
  assign(f,'teme.in'); reset(f);
  assign(g,'teme.out'); rewrite(g);
    readln(f,n,m);
    c:=0;
      for i:=1 to n do
         for j:=1 to n do
           a[i,j]:=0;
      for i:=1 to m do
      begin
         readln(f,x[i].k,x[i].t);
         a[x[i].k,x[i].t]:=1;
         a[x[i].t,x[i].k]:=1;
      end;
      viz[1]:=0;
       for i:=1 to n do
         begin
         if viz[i]=0 then
         begin
         df(i);
         c:=c+1;
         end;
         end;
       write(g,c);
  close(f);
  close(g);
  end.