Question

Даны три вещественных числа. Вывести на экран те ,которые являются четными

Answer 1

===== PascalABC.NET =====

begin

 ReadAllLines('MyFile.txt')

     .Select(p -> p.ToReal)

     .Where(p -> (Frac(p) = 0) and Trunc(p).IsEven)

     .Println

end.

d75b1d17593c82599ea979a772baf0ff.txt