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

Question

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

Экономика

Гость

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

Accepted Answer

var a,b,c:real; k:integer; begin Read(a,b,c); if frac(a)=0 then k:=1 else k:=0; if frac(b)=0 then Inc(k); if frac(c)=0 then Inc(k); Writeln('Чисел с нулевой дробной частью :',k) end.