var a:array[1..200,1..200]of boolean；

b:array[1..200]of boolean；

q:array[1..200]of integer；

sum,n,m,heng,zong,i,j,k,l,o,p,max:integer；

procedure try(x,y:integer)；

var j:integer；

begin

q[x]:=y；inc(sum)；

for j:=1 to n do

if a[y,j] and b[j] then

begin

b[j]:=false；

try(x+1,j)；

end；

end；

begin

readln(n,m)；

for i:=1 to m do

begin

readln(heng,zong)；

a[heng,zong]:=true；

a[zong,heng]:=true；

end；

fillchar(b,sizeof(b),true)；

for i:=1 to n do

if b[i] then

begin

b[i]:=false；

fillchar(q,sizeof(q),0)；

sum:=0；

try(1,i)；

p:=0；

for l:=1 to sum do

begin

k:=0；

for o:=1 to n do

if a[q[l],o] then inc(k)；

if k mod 2<>0 then p:=p+1；

end；

if p<>0 then

if p<2 then max:=max+1

else max:=max+p div 2；

end；

write(max)；

end.