Question

Программа на Pascal. Вводится последовательность натуральных чисел пока не вводится число 0. Вывести сколько раз в последовательности за четным числом идет нечетное

Answer 1

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var БылЧет := False;

 var Число: integer;

 var Счетчик := 0;

 while True do

 begin

   Read(Число);

   if число = 0 then break;

   var ВведеноНечетное := Число.IsOdd;

   if БылЧет and ВведеноНечетное then Inc(Счетчик);

   БылЧет := not ВведеноНечетное

 end;

 Println(Счетчик)

end.

Пример

-27 42 -19 -2 -42 12 45 39 -27 29 3 -17 -14 -25 -26 41 21 -13 -6 0

4

Answer 2

Для решения этой задачи на Pascal, можно использовать следующий код:

pascalCopy code
program CountEvenOddPairs;

var
  number, previousNumber, evenCount, oddAfterEvenCount: integer;

begin
  evenCount := 0;
  oddAfterEvenCount := 0;
  previousNumber := -1; // Используем -1 как значение предыдущего числа до первого ввода

  writeln('Введите последовательность натуральных чисел (для завершения введите 0): ');

  repeat
    readln(number);

    if (number mod 2 = 0) then
    begin
      evenCount := evenCount + 1;
      
      // Проверяем, следующее ли число нечетное
      if (previousNumber <> -1) and (previousNumber mod 2 <> 0) then
        oddAfterEvenCount := oddAfterEvenCount + 1;
    end;

    previousNumber := number;
  until number = 0;

  writeln('Количество четных чисел в последовательности: ', evenCount);
  writeln('Количество нечетных чисел, идущих после четных: ', oddAfterEvenCount);
end.

Эта программа позволяет вводить натуральные числа до тех пор, пока не будет введен 0. После этого она выводит количество четных чисел в последовательности и сколько раз за четным числом идет нечетное число.