Подсчитать количество целых чисел среди чисел a,b,c.

Question

Подсчитать количество целых чисел среди чисел a,b,c.

Answer 1

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.