Question

Составьте программу определяющую количество нечетных чисел на промежутке [х; у]. PASCAL

Answer 1

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

begin

 var (x, y) := ReadInteger2('Введите границы интервала:');

 Range(x,y).Count(p -> p.IsOdd).Print

end.