Ответы на вопрос:
Var i, n, prev_n: integer; begin i : = 0; writeln('введите последовательность чисел,оканчивающихся 0'); repeat readln(n); if prev_n * n < 0 then i : = i + 1; prev_n : = n; until n = 0; writeln(i); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
bhsdvsbvgvfsbvefe30.08.2021 19:45
-
Samisha29.12.2021 04:43
-
sofiya1303122.01.2020 12:48
-
1castiel0309.06.2020 18:00
-
AngelGelay26.09.2020 21:32
-
wsmol20.07.2022 22:23
-
Karinarikfeeet13.03.2021 16:06
-
Катя56511111.12.2020 14:22
-
beknurr546ozpknp18.05.2021 09:59
-
Arina301026.12.2020 12:49
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.