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

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

Comments

Извиняюсь, я забыл указать, что использовать команду "break" запрещено. Все нужно осуществить, используя циклы wile и repeat until, не более 2ух раз в сумме. Это, конечно, не сложно, но с определением следующего/предыдущего элемента последовательности проблемы, т.к. последняя версия языка наотрез отказывается выполнять поставленную задачу через те циклы.

---

Вы же понимаете, что это теперь Ваша проблема. Никто не обязан из-за Вашей небрежности дважды делать работу.

---

Конечно, впрочем, в программах из ОГЭ априори не допускается использование "break". Во всяком случае сейчас. И на том спасибо.

---

Это кто Вам такую чушь сказал?

---

Откройте материалы ФИПИ для комиссий по проверке работ и найдите там хоть что-то подобное.

---

Я через этот экзамен прошел, такая "чушь" была в условиях задач.

---

В условии конкретной задачи - могло быть. Но это не есть общее требование к решению задач ОГЭ/ЕГЭ