program p1;
var a:array[0..1000,0..1000] of 0..1;
    b:array[0..1000000] of longint;
    viz:array[0..1000000] of 0..1;
    f,g:text;
    i,n,j,u,m,i_s,x,y,sol:longint;
procedure dfs(nod:longint);
var k:longint;
begin
viz[nod]:=1;
  for k:=1 to n do
                if (viz[k]=0)   and (a[nod,k]=1) then dfs(k);
end;
begin
assign(f,'dfs.in');reset(F);
assign(g,'dfs.out');rewrite(G);
readln(f,n,m);
for i:=1 to m do
         begin
         readln(f,x,y);
         a[x,y]:=1;
         a[y,x]:=1;
         end;
for i:=1 to n do viz[i]:=0;
for i:=1 to n do
        if viz[i]=0 then begin
                        inc(sol);
                        dfs(i);
                         end;
writeln(g,sol);
close(F);
close(G);
end.