Ответы на вопрос:
Pascal abc var a,b,n: integer; begin readln(n); while (a< > n) or (b< > n) do begin read(a); if a=n then write('1') else begin read(b); if b=n then write('2'); end; end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
pudgenamide26.08.2021 04:05
-
joker110020.02.2022 10:31
-
almiradanil08.09.2022 21:29
-
Ампфетамін21.06.2021 00:47
-
DARKFEST107.09.2022 02:26
-
Scvetocheek101.12.2020 01:03
-
ElzaraLeonovich27.09.2022 20:58
-
даша364518.04.2021 10:57
-
brayamsp0altc22.04.2021 10:33
-
NameXD18.02.2023 12:26
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.