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