Подсчитать количество целых чисел среди чисел a,b,c. - вопрос №505653 от sholneke 01.03.2023 05:43

Question

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

sholneke · 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.