Ответы и объяснения

2013-01-21T08:56:34+00:00

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.