Составить алгоритм и программу для подсчета количества нулей в десятичной записи целого числа.

vara,i,k:integer;beginreadln(a);while a<>0 do beginif a mod 2=0 thenk:=k+1;a:=a div 2;end;writeln(k);end.