Ответы на вопрос:
держи 1 и 3 ; ) :
1)
program solution; uses crt; var i, poloz, otrits, zero : byte; n : integer; beginclrscr; poloz : = 0; otrits : = 0; zero : = 0; for i : = 1 to 10 do begin readln(n); if n > 0 then poloz : = poloz + 1; if n < 0 then otrits : = otrits + 1; if n = 0 then zero : = zero + 1; end; write('+: ', poloz, ', -: ', otrits, ', 0: ', zero); readkey; end.
3:
program solution; uses crt; var sum, num, count : word; beginclrscr; sum : = 0; count : = 0; while sum < = 100 do begin write(': '); readln(num); sum : = sum + num; count : = count + 1; end; writeln('было введено чисел: ', count); readkey; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
dzyadukh117.04.2021 21:23
-
rebecca33229.06.2023 18:36
-
perevuznik112.12.2022 08:57
-
22Марина115.01.2023 10:11
-
kerildebil201629.06.2023 03:37
-
Heh602.05.2022 20:20
-
tyankitty20.04.2020 04:22
-
valeriya30913.09.2022 21:09
-
натик201722.02.2021 00:05
-
104829810.12.2021 18:18
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.