По заданной фразе a$ сформировать и вывести фразы, слова в которых являются всевозможными перестановками слов исходной фразы. исходная информация вводится с клавиатуры(qbasic)
105
173
Ответы на вопрос:
Input s$ k = len(s$) + 1 for i = 1 to k if mid$(s$, i, 1) = " " then n = n + 1 'считаем число слов next i n = n + 1 dim f$(n) dim z(n) j = 1 for i = 1 to k 'разрезаем фразу на слова и заносим их в массив f t$ = mid$(s$, i, 1) f$(j) = f$(j) + t$ if t$ = " " then j = j + 1 next i f$(n) = f$(n) + " " for i = 1 to n 'считаем в сс с основанием n, исключая повтор цифр z(i) = i next i do while z(0) = 0 z(n) = z(n) + 1 k = n do while z(k) > n z(k) = 1 k = k - 1 z(k) = z(k) + 1 loop p = 0 for i = 1 to n - 1 'исключаем числа с повторяющимися цифрами for j = i + 1 to n if z(i) = z(j) then p = 1 next j next i if p = 0 then 'выводим соответствующие числам слова for j = 1 to n print f$(z(j)); next j print end if loop
Const pi=3.14; varr: double; begin read(r); writeln('dlina=',2*r*pi: 5); write('s=',pi*(r*r): 5); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
glazyrinasasha12.08.2022 22:59
-
Zaher1119.10.2021 04:41
-
savitar22811.03.2021 06:30
-
алёчек29.02.2020 16:54
-
khubulovaliza14.09.2021 15:16
-
Аришка866815.09.2022 02:10
-
eruder13.10.2020 03:08
-
lerakim73509.11.2020 15:25
-
nikitaefimenko17.06.2022 13:19
-
CERRY05050521.06.2022 12:52
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.