Программа получает на вход последовательность целых неотрицательных чисел, каждое число записано в отдельной строке. последовательность завершается числом 0, при считывании которого программа должна закончить свою работу и вывести количество членов последовательности (не считая завершающего числа 0). числа, следующие за числом 0, считывать не нужно. входные данные вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит). выходные данные выведите ответ на . примеры входные данные 1 7 9 0 5 выходные данные 3
145
160
Ответы на вопрос:
Var a,k: integer; begin k: =0; read(a); while a < > 0 do begin read(a); k: =k+1; end; write(k) end.
Куда добавить если сохранить то просто закрываешь и там вылазеет сохронять или нет
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
spilberg327.06.2023 04:26
-
fftoes15.07.2020 01:28
-
Mrkeu02.07.2022 07:50
-
kristimisti123424.09.2022 07:37
-
dndzanton11.11.2021 13:37
-
gabdrahmanova95114.03.2020 04:44
-
lexazykov2001412.10.2021 12:21
-
extysq300008.12.2021 13:52
-
dashkastroga21.12.2022 09:31
-
Glupaya99017.12.2021 05:01
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.