Напишите программу, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет, верно ли, что знаки элементов этой последовательности чередуются

Отдел +; использует вывод из "", приём; пер   число: цел;   полож, черед: ключ; указ   черед : = вкл;   число : = приём.число();   полож : = число > 0;   пока число # 0 вып     вывод.цепь("^");     если (полож и  число > 0) или (не полож и число < 0)  то       черед : = откл     кон;       число : = приём.число();       полож : = число > 0   кон;   если черед то вывод.цепь("чередуются.") кон кон .

австрия -вена,

бельгия - брюссель,

германия- берлин,

дания - копенгаген,

испания - мадрид,

франция - париж,

швейцария - берн

обозначи кол-во цветков, распустившихся позавчера за x, вчера - за (x - 11) (по условию). вчера распустилось на 11 цветков меньше, чем позавчера и на 32 меньше, чем сегодня и позавчера вместе.подставим x=12 (> 11) - цветков вчера, значит 12-11=1 - цветков завтра. цветков сегодня находим так: 32 (дано) - 11 (дано) = 21. 

ответ:

позавчера   - 12 цветков.

вчера- 1 (12 - 11 = 12+ 21 - 32) цветок.

сегодня - 21 цветок.