Question

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

Answer 1

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

begin

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

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

end.

Answer 2

Конечно, вот пример программы на языке Pascal для определения количества нечетных чисел на промежутке [х; у]:

pascalCopy code
program CountOddNumbers;

var
  x, y, i, count: integer;

begin
  writeln('Введите начало промежутка:');
  readln(x);
  
  writeln('Введите конец промежутка:');
  readln(y);
  
  // Проверка на нечетность числа
  function IsOdd(number: integer): boolean;
  begin
    IsOdd := number mod 2 <> 0;
  end;

  // Инициализируем счетчик нечетных чисел
  count := 0;
  
  // Проходим по числам в промежутке [x; y]
  for i := x to y do
  begin
    // Если число нечетное, увеличиваем счетчик
    if IsOdd(i) then
      Inc(count);
  end;

  writeln('Количество нечетных чисел на промежутке [', x, '; ', y, '] равно ', count);
end.

Программа запрашивает у пользователя начало промежутка (х) и конец промежутка (у). Затем она проходит по всем числам в этом промежутке, проверяет каждое число на нечетность с помощью функции IsOdd, и если число нечетное, увеличивает счетчик count. В конце выводится количество нечетных чисел на указанном промежутке.