Вpascal задать строку, состоящую из 3-х случайно заданных символов «р», «о», «к», выводить её до тех пор, пока не выйдут слова: «рок», «орк», «кок»
263
310
Ответы на вопрос:
Var i,k: integer; s,st: string[3]; begin randomize; st: ='рок'; s: =''; repeat s: =''; for i: =1 to 3 do begin k: =random(3)+1; s: =s+st[k]; end; writeln(s); until (s='рок')or(s='орк')or(s='кок'); end. пример: ккр оро коо ркр орк
Program rok_ork_kok; var x,y: integer; s: string; c1,c2,c3: char; begin writeln('начать выполнение? жмите enter! '); readln; repeat randomize; x: =random(4); if x = 1 then c1: ='р'; if x = 2 then c1: ='о'; if x = 3 then c1: ='к'; x: =random(4); if x = 1 then c2: ='р'; if x = 2 then c2: ='о'; if x = 3 then c2: ='к'; x: =random(4); if x = 1 then c3: ='р'; if x = 2 then c3: ='о'; if x = 3 then c3: ='к'; s: =c1+c2+c3; writeln(s); until (s='кок') or (s='рок') or (s='орк') ; writeln('получили слово '+s); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
1Raffaelka118.10.2022 23:48
-
Dogerman1101.06.2021 17:30
-
НелиЗильбирштейн28.12.2021 11:30
-
Аня9878820.09.2021 14:07
-
sofira327.12.2021 16:01
-
закро03.08.2021 12:11
-
Angela115606.12.2020 23:39
-
reopla12.03.2023 15:36
-
Arisha254419.08.2020 21:31
-
Нурик226624.04.2020 05:21
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.