var
a, b, c : real;
count : byte;
begin
read (a, b, c);
count := 0;
if frac (a) = 0 then inc (count);
if frac (b) = 0 then inc (count);
if frac (c) = 0 then inc (count);
writeln (Count);
end.
