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

Question

Информатика

Мана

31 августа, 01:32

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

+3

Ответы (1)

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

Валя · Answer 1

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.