var i,j,k,l,m,n:longint; a:array[1..10000,1..10000] of byte;
v:array[1..100000] of byte;
f1,f2:text;
procedure dfs(l:longint);
var i:longint;
begin
v[l]:=1;
for i:=1 to n do
if (a[l,i]=1) and (v[i]=0) then dfs(i);
end;
begin
assign(f1,'dfs.in');
reset(f1);
readln(f1,n,m);
for i:=1 to m do begin
readln(f1,k,l);
a[k,l]:=1;
a[l,k]:=1;
end;
close(f1);
k:=0;
for i:=1 to n do
if v[i]=0 then begin Inc(k); dfs(i); end;
assign(f2,'dfs.out');
rewrite(f2);
writeln(f2,k);
close(f2);
end.