Вот рисунок. Корабли я обозначил первыми буквами.
ответвление буду называть "карманом" для краткости.
1) Корабль М заходит в карман.
2) Остальные 5 кораблей отходят направо, чтобы О оказался правее кармана.
3) Корабль М выходит из кармана и уходит далеко налево.
4) Корабли О, В, П отходят обратно налево, Е заходит в карман.
5) Корабли О, В, П, Р опять уходят направо.
6) Корабль Е выходит из кармана и уплывает налево.
7) Корабли О, В, П отходят обратно налево, Р заходит в карман.
8) Корабли О, В, П уходят направо.
9) Корабль Р выходит из кармана и уплывает налево.
10) Всё, разъехались!
S:real;
Begin
c:=-1;
S:=0;
Repeat
Read(A);
if A mod 2 = 0 then c:=c+1
else S:=S+A;
Until A = 0;
WriteLn('Количество чётных: ',c);
WriteLn('Сумма нечётных: ',S);
End.
Пример работы программы:
1 2 3 4 5 6 7 8 9 10 0
Количество чётных: 5
Сумма нечётных: 25