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

Question

Информатика

Алена

6 января, 11:08

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

+2

Ответы (1)

Знаете ответ на вопрос?

Маркиана · 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.