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

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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