Ответы на вопрос:
uses crt; var x,s: integer; c: char; b: boolean; beginwhile b=false do beginx: =random(10); if (x=4) or (x=5) then s: =s+50; if (x=3) or (x=6) then s: =s-50; if (x=2) or (x=7) then s: =s*2; if (x=1) or (x=8) then sound(1000); writeln('you points - ',s,' ',x); if (x=1) or (x=8) or (s< 0) or (c='no') then b: =true; if b=false then beginwriteln('continue? enter "no" to exit.'); readln(c); end; end; delay(10000); nosound; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
vicroriaalakoz318.08.2022 10:10
-
лпк1822.08.2021 09:14
-
Klimovada02.02.2023 23:40
-
Vika755001.05.2023 20:51
-
Vkomarova16.06.2020 18:14
-
ximik120914.01.2021 12:37
-
ЯЯЯ0304.05.2020 11:35
-
ayperi216.05.2020 20:59
-
vgaydeekoy8i5c05.04.2021 18:36
-
alyona2010726.02.2022 18:15
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.