===== PascalABC.NET =====
begin
var (x, y) := ReadInteger2('Введите границы интервала:');
Range(x,y).Count(p -> p.IsOdd).Print
end.
![Составьте программу определяющую количество нечетных чисел на промежутке [х; у]. pascal](/tpl/images/1044/9971/d4447.jpg)
