Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.