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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.