Программа из слова "информатика" составляла 500 новых слов

@trofleratrofimo · Регистрация: 03.11.2021

Студворк — интернет-сервис помощи студентам

Здравствуйте, нужно написать программу на языке QBasic, чтобы программа из слова "информатика" составляла 500 новых слов. Буквы могут повторяться неограниченное количество раз. Использовать только операторы mid$(a$,[арг1],[арг2]) +mid$(a$,[арг1],[арг2])+mid$(a$,[арг1],[арг2])+ ...итд
Спасибо большое заранее

@Garic73 · 25.01.2022, 22:05

Слов или сочетаний букв?

@m-ch · 27.01.2022, 08:51

более 200 слов

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
DIM a AS STRING
a = "информатика"
PRINT MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 1, 1) + MID$(a, 6, 1)
PRINT MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 6, 1)
PRINT MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 8, 1)
PRINT MID$(a, 7, 1) + MID$(a, 6, 1) + MID$(a, 1, 1) + MID$(a, 7, 1) + MID$(a, 10, 1)
PRINT MID$(a, 7, 1) + MID$(a, 6, 1) + MID$(a, 3, 3) + MID$(a, 7, 1)
PRINT MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 6, 3) + MID$(a, 4, 2)
PRINT MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 7, 1)
PRINT MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 2, 1) + MID$(a, 7, 1)
PRINT MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 6, 1)
PRINT MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 8, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 10, 1) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 1, 2) + MID$(a, 7, 1)
PRINT MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 4, 1)
PRINT MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 8, 1)
PRINT MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 10, 1) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 7, 2) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 7, 2) + MID$(a, 7, 1) + MID$(a, 6, 2) + MID$(a, 2, 1)
PRINT MID$(a, 1, 2) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 6, 1)
PRINT MID$(a, 1, 3) + MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 8, 1)
PRINT MID$(a, 1, 3) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 10, 1) + MID$(a, 8, 1)
PRINT MID$(a, 1, 8) + MID$(a, 4, 2)
PRINT MID$(a, 1, 1) + MID$(a, 4, 1) + MID$(a, 7, 1) + MID$(a, 2, 1)
PRINT MID$(a, 1, 1) + MID$(a, 4, 1) + MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 7, 1)
PRINT MID$(a, 1, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 10, 1)
PRINT MID$(a, 1, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 2, 1)
PRINT MID$(a, 1, 1) + MID$(a, 5, 1) + MID$(a, 1, 2) + MID$(a, 7, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 1, 2)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 1, 1) + MID$(a, 5, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 10, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 4, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 6, 2)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 2, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 8, 1) + MID$(a, 1, 2)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 7, 2)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 5, 3) + MID$(a, 2, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 8, 1) + MID$(a, 7, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 8, 1) + MID$(a, 1, 2) + MID$(a, 7, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 8, 1) + MID$(a, 1, 2) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 2, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 3, 1) + MID$(a, 7, 1) + MID$(a, 2, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 2) + MID$(a, 7, 1) + MID$(a, 6, 2) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 2, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 2) + MID$(a, 7, 1) + MID$(a, 5, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 2) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 1, 2) + MID$(a, 7, 1)
PRINT MID$(a, 10, 1) + MID$(a, 7, 2) + MID$(a, 4, 1) + MID$(a, 10, 1)
PRINT MID$(a, 10, 1) + MID$(a, 1, 1) + MID$(a, 6, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 4, 1)
PRINT MID$(a, 10, 1) + MID$(a, 1, 2) + MID$(a, 4, 1)
PRINT MID$(a, 10, 1) + MID$(a, 1, 2) + MID$(a, 4, 1) + MID$(a, 10, 1) + MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 10, 1) + MID$(a, 1, 2) + MID$(a, 4, 1) + MID$(a, 6, 2) + MID$(a, 2, 1)
PRINT MID$(a, 10, 1) + MID$(a, 1, 1) + MID$(a, 4, 1) + MID$(a, 8, 1) + MID$(a, 4, 1)
PRINT MID$(a, 10, 1) + MID$(a, 1, 1) + MID$(a, 5, 1) + MID$(a, 7, 1)
PRINT MID$(a, 10, 1) + MID$(a, 1, 1) + MID$(a, 8, 1)
PRINT MID$(a, 10, 1) + MID$(a, 4, 1) + MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 1, 2)
PRINT MID$(a, 10, 1) + MID$(a, 4, 1) + MID$(a, 6, 2) + MID$(a, 5, 1)
PRINT MID$(a, 10, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 8, 1) + MID$(a, 4, 2) + MID$(a, 7, 1)
PRINT MID$(a, 10, 1) + MID$(a, 4, 2) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 10, 1) + MID$(a, 4, 1) + MID$(a, 3, 1) + MID$(a, 8, 1) + MID$(a, 7, 1)
PRINT MID$(a, 10, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 2, 1)
PRINT MID$(a, 10, 1) + MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 10, 1) + MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 10, 1) + MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 6, 1) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 10, 1) + MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 7, 1)
PRINT MID$(a, 10, 1) + MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 8, 1)
PRINT MID$(a, 10, 1) + MID$(a, 8, 1) + MID$(a, 4, 1)
PRINT MID$(a, 6, 2) + MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 6, 2) + MID$(a, 6, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 8, 1)
PRINT MID$(a, 6, 1) + MID$(a, 1, 1) + MID$(a, 10, 1) + MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 2, 1)
PRINT MID$(a, 6, 1) + MID$(a, 1, 1) + MID$(a, 10, 1) + MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 3, 2) + MID$(a, 2, 1)
PRINT MID$(a, 6, 1) + MID$(a, 1, 1) + MID$(a, 6, 1) + MID$(a, 1, 1) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 6, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 4, 1)
PRINT MID$(a, 6, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 4, 2)
PRINT MID$(a, 6, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 6, 2) + MID$(a, 5, 1) + MID$(a, 8, 1) + MID$(a, 5, 1)
PRINT MID$(a, 6, 1) + MID$(a, 4, 3) + MID$(a, 4, 1) + MID$(a, 2, 1)
PRINT MID$(a, 6, 1) + MID$(a, 4, 2) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 5, 1) + MID$(a, 7, 1)
PRINT MID$(a, 6, 1) + MID$(a, 4, 1) + MID$(a, 8, 1) + MID$(a, 4, 2)
PRINT MID$(a, 6, 1) + MID$(a, 4, 1) + MID$(a, 8, 1) + MID$(a, 4, 2) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 6, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 10, 1)
PRINT MID$(a, 6, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 6, 1) + MID$(a, 4, 2)
PRINT MID$(a, 2, 1) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 7, 2)
PRINT MID$(a, 2, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 10, 1) + MID$(a, 4, 1) + MID$(a, 6, 2) + MID$(a, 2, 1)
PRINT MID$(a, 2, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 10, 1) + MID$(a, 4, 1) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 2, 1) + MID$(a, 7, 2) + MID$(a, 7, 1) + MID$(a, 2, 1)
PRINT MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 10, 1) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 7, 1)
PRINT MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 10, 1) + MID$(a, 4, 1) + MID$(a, 8, 1) + MID$(a, 1, 2)
PRINT MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 6, 1) + MID$(a, 3, 1)
PRINT MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 6, 1) + MID$(a, 3, 1) + MID$(a, 7, 1)
PRINT MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 6, 1) + MID$(a, 3, 2) + MID$(a, 6, 2) + MID$(a, 2, 1) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 7, 2)
PRINT MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 8, 1)
PRINT MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 2, 1)
PRINT MID$(a, 2, 1) + MID$(a, 4, 1) + MID$(a, 10, 1) + MID$(a, 8, 1) + MID$(a, 1, 1)
PRINT MID$(a, 2, 1) + MID$(a, 4, 1) + MID$(a, 6, 1) + MID$(a, 1, 2) + MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 8, 1) + MID$(a, 7, 1)
PRINT MID$(a, 2, 1) + MID$(a, 4, 2) + MID$(a, 7, 1)
PRINT MID$(a, 2, 1) + MID$(a, 4, 2) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 2, 1) + MID$(a, 4, 4)
PRINT MID$(a, 2, 1) + MID$(a, 4, 4) + MID$(a, 2, 1)
PRINT MID$(a, 2, 1) + MID$(a, 4, 1) + MID$(a, 8, 1) + MID$(a, 7, 1)
PRINT MID$(a, 4, 1) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 4, 1) + MID$(a, 10, 1) + MID$(a, 2, 1) + MID$(a, 7, 1)
PRINT MID$(a, 4, 1) + MID$(a, 10, 1) + MID$(a, 4, 2) + MID$(a, 4, 1) + MID$(a, 10, 1)
PRINT MID$(a, 4, 1) + MID$(a, 10, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 1, 2) + MID$(a, 7, 1)
PRINT MID$(a, 4, 1) + MID$(a, 10, 1) + MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 4, 1) + MID$(a, 6, 2) + MID$(a, 5, 1)
PRINT MID$(a, 4, 2) + MID$(a, 7, 2) + MID$(a, 4, 2)
PRINT MID$(a, 4, 2) + MID$(a, 10, 1)
PRINT MID$(a, 4, 1) + MID$(a, 8, 1) + MID$(a, 10, 1) + MID$(a, 7, 2)
PRINT MID$(a, 4, 1) + MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 10, 1)
PRINT MID$(a, 4, 1) + MID$(a, 8, 1) + MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 10, 1)
PRINT MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 10, 1)
PRINT MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 6, 2)
PRINT MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 6, 1) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 5, 1) + MID$(a, 1, 2) + MID$(a, 7, 2)
PRINT MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 7, 1)
PRINT MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 6, 1)
PRINT MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 4, 2) + MID$(a, 1, 1) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 3, 1)
PRINT MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 10, 1) + MID$(a, 10, 1) + MID$(a, 1, 1)
PRINT MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 10, 1) + MID$(a, 4, 1) + MID$(a, 8, 1)
PRINT MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 6, 1)
PRINT MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 6, 2)
PRINT MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 6, 2) + MID$(a, 2, 1)
PRINT MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 6, 2) + MID$(a, 2, 1) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 6, 2) + MID$(a, 2, 1) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 8, 1)
PRINT MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 8, 1) + MID$(a, 7, 1)
PRINT MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 8, 1) + MID$(a, 4, 2)
PRINT MID$(a, 8, 1) + MID$(a, 7, 1) + MID$(a, 10, 1)
PRINT MID$(a, 8, 1) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 8, 1)
PRINT MID$(a, 8, 1) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 8, 1) + MID$(a, 7, 1) + MID$(a, 6, 2) + MID$(a, 5, 1) + MID$(a, 7, 1)
PRINT MID$(a, 8, 1) + MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 10, 1)
PRINT MID$(a, 8, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 7, 1) + MID$(a, 2, 1)
PRINT MID$(a, 8, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 2, 1)
PRINT MID$(a, 8, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 8, 1) + MID$(a, 7, 1) + MID$(a, 5, 1)
PRINT MID$(a, 8, 1) + MID$(a, 7, 2) + MID$(a, 7, 1) + MID$(a, 6, 1) + MID$(a, 1, 1)
PRINT MID$(a, 8, 1) + MID$(a, 7, 2) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 1, 2)
PRINT MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 5, 1)
PRINT MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 2, 1)
PRINT MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 7, 1) + MID$(a, 2, 1)
PRINT MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 3, 1)
PRINT MID$(a, 8, 1) + MID$(a, 6, 1) + MID$(a, 1, 2)
PRINT MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 10, 1)
PRINT MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 10, 1) + MID$(a, 1, 1) + MID$(a, 4, 1)
PRINT MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 6, 1)
PRINT MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 2, 1) + MID$(a, 7, 1)
PRINT MID$(a, 8, 1) + MID$(a, 4, 2)
PRINT MID$(a, 8, 1) + MID$(a, 4, 2) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 8, 1) + MID$(a, 4, 1)
PRINT MID$(a, 8, 1) + MID$(a, 4, 2) + MID$(a, 8, 1)
PRINT MID$(a, 8, 1) + MID$(a, 4, 2) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 8, 1) + MID$(a, 4, 2) + MID$(a, 3, 1)
PRINT MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 8, 1) + MID$(a, 7, 2)
PRINT MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 5, 1)
PRINT MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 8, 1) + MID$(a, 4, 2)
PRINT MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 7, 2) + MID$(a, 7, 1)
PRINT MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 3, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 1, 1)
PRINT MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 10, 1) + MID$(a, 4, 1)
PRINT MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 1, 2) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 7, 2)
PRINT MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 1, 2) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 1, 2)
PRINT MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 1, 2) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 2, 1)
PRINT MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 4, 1)
PRINT MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 2, 1)
PRINT MID$(a, 8, 1) + MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 2, 1)
PRINT MID$(a, 3, 1) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 1, 1) + MID$(a, 5, 1)
PRINT MID$(a, 3, 1) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 8, 1)
PRINT MID$(a, 3, 1) + MID$(a, 7, 1) + MID$(a, 10, 1) + MID$(a, 8, 1) + MID$(a, 4, 2)
PRINT MID$(a, 3, 1) + MID$(a, 7, 1) + MID$(a, 2, 1)
PRINT MID$(a, 3, 1) + MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 7, 2)
PRINT MID$(a, 3, 1) + MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 7, 2) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 3, 1) + MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 8, 1)
PRINT MID$(a, 3, 1) + MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 3, 1) + MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 6, 1)
PRINT MID$(a, 3, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 7, 1)
PRINT MID$(a, 3, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 4, 1) + MID$(a, 2, 1)
PRINT MID$(a, 3, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 3, 3)
PRINT MID$(a, 3, 1) + MID$(a, 7, 2) + MID$(a, 7, 1)
PRINT MID$(a, 3, 1) + MID$(a, 7, 2) + MID$(a, 1, 1) + MID$(a, 6, 2)
PRINT MID$(a, 3, 1) + MID$(a, 1, 2)
PRINT MID$(a, 3, 1) + MID$(a, 1, 2) + MID$(a, 10, 1) + MID$(a, 7, 1)
PRINT MID$(a, 3, 1) + MID$(a, 1, 2) + MID$(a, 8, 1)
PRINT MID$(a, 3, 1) + MID$(a, 1, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 7, 1)
PRINT MID$(a, 3, 1) + MID$(a, 1, 1) + MID$(a, 5, 3)
PRINT MID$(a, 3, 2) + MID$(a, 6, 2)
PRINT MID$(a, 3, 2) + MID$(a, 2, 1)
PRINT MID$(a, 3, 2) + MID$(a, 2, 1) + MID$(a, 7, 1) + MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 3, 3) + MID$(a, 7, 1)
PRINT MID$(a, 3, 5)
PRINT MID$(a, 3, 2) + MID$(a, 8, 1) + MID$(a, 4, 1)
PRINT MID$(a, 3, 2) + MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 10, 1) + MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 8, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 3, 2) + MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 2, 1)
PRINT MID$(a, 3, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 10, 1)
PRINT MID$(a, 3, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 10, 1)
PRINT MID$(a, 3, 1) + MID$(a, 5, 1) + MID$(a, 7, 1) + MID$(a, 2, 1) + MID$(a, 8, 1)
PRINT MID$(a, 3, 1) + MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 10, 1)
PRINT MID$(a, 3, 1) + MID$(a, 5, 1) + MID$(a, 1, 1) + MID$(a, 6, 2) + MID$(a, 2, 1)
PRINT MID$(a, 3, 1) + MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 8, 1)
PRINT MID$(a, 3, 1) + MID$(a, 5, 1) + MID$(a, 4, 1) + MID$(a, 2, 1) + MID$(a, 8, 1) + MID$(a, 4, 1) + MID$(a, 6, 1)
PRINT MID$(a, 3, 1) + MID$(a, 8, 1) + MID$(a, 4, 2)

Кликните здесь для просмотра всего текста

аким
акроним
акт
амиак
амфора
аниматор
анкара
анна
аноним
антарктика
антонина
антонио
антракт
арка
арктика
атака
атаман
интим
инфант
инфаркт
информатор
иоан
иоана
ирак
иран
ирина
каин
каир
как
какао
кама
кан
карантин
карат
карман
карта
картина
картинка
картон
картонка
картофан
катамаран
катар
катарина
каток
кимоно
кино
кинокритик
киноман
киото
кира
кит
кокаин
комар
контора
корка
кофта
кран
крик
критик
кромка
крона
крот
кто
макака
мамонт
микрон
микрофон
мимика
монако
монитор
монмартр
мормон
мортира
мотор
моторка
мрак
мрамор
накат
наркоман
наркотик
натан
ник
никита
никотин
нимф
нимфа
нимфоманка
нитрат
нитрит
нитрон
нокти
номинанта
нора
норка
норма
норман
нота
ока
окна
окорок
окраина
окрик
омар
оратор
орк
откат
отрок
отток
рак
рама
рамка
ринат
рита
ритм
риторика
риф
рокки
рокот
ром
рома
роман
романтик
романтика
рот
рота
ротик
ротор
так
такт
тактика
тамара
танк
таракан
таран
тартар
татами
татарин
тир
тиран
титан
титаник
тиф
тмин
ток
токио
том
тоник
тонна
тор
торонто
торт
тортик
торф
трактат
трактир
трактор
трата
трафик
три
трико
тринитрат
тринитрин
тринитрон
трио
тритон
трон
факир
факт
фактор
фан
фанат
фанатик
фант
фантик
фантом
фара
фараон
фарфор
фата
фатима
фин
финка
финт
фиона
фирма
фома
фон
фонарик
фора
форма
фото
фотокритик
фотон
фрак
франк
франт
фрик
фриман
фронт
фронтом
фтор

@vlisp · 27.01.2022, 14:33

это онанизм какой-то, программы должны заменять человеческий труд, а тут все наоборот.
не знаю зачем заниматься этой графоманией на уровне школьника во второй раз увидевшего компьютер?
и это на языке, поддерживающем структурное и какое никакое ООП

@CoderHuligan · 27.01.2022, 14:50

Повеселили.

Добавлено через 1 минуту

Сообщение от m-ch

более 200 слов

Ты реально это все вручную вбивал?)))

Добавлено через 1 минуту
m-ch. Кстати, оператор PRINT запрещен, так что выкручивайся дальше))))

@m-ch · 27.01.2022, 14:53

Сообщение от vlisp

программы должны заменять человеческий труд, а тут все наоборот

vlisp, ну собственно перечень составлен не вручную
Прогонка словаря через фильтр и генерация текстовой строки: mid$()+mid$()...
Код на пару десятков строк

Добавлено через 2 минуты

Сообщение от CoderHuligan

оператор PRINT запрещен

Проглядел, ну значит нет у меня решения. Нужно что то другое делать: не выводить на экран, а просто присваивать переменной или в массив писать

@vlisp · 27.01.2022, 15:14

Сообщение от m-ch

генерация текстовой строки

на бейсике?

@trofleratrofimo · 27.01.2022, 15:42 **[ТС]**

Garic73, слов

@m-ch · 28.01.2022, 08:33

Если взять словарь отсюда на 51 тыс. слов, то можно составить и более 500 слов из слова "информатика

@trofleratrofimo · 28.01.2022, 19:19 **[ТС]**

CoderHuligan, Здравствуйте, не поможете решить задание?
нужно написать программу на языке QBasic, чтобы программа из слова "информатика" составляла 500 новых слов. Буквы могут повторяться неограниченное количество раз. Использовать только операторы mid$(a$,[арг1],[арг2]) +mid$(a$,[арг1],[арг2])+mid$(a$,[арг1],[арг2])+ ...итд

@CoderHuligan · 29.01.2022, 12:02

Сообщение от trofleratrofimo

Здравствуйте, не поможете решить задание?

Задание не точно изложено. Приведи полный текст.

@trofleratrofimo · 29.01.2022, 15:14 **[ТС]**

CoderHuligan, Это всё объ
яснение, что есть в задание

@trofleratrofimo · 31.01.2022, 15:12 **[ТС]**

CoderHuligan, Здравствуйте, нужно написать программу на языке QBasic, чтобы программа из слова "информатика" составляла 500 новых слов. Буквы могут повторяться неограниченное количество раз. Использовать только операторы mid$(a$,[арг1],[арг2]) +mid$(a$,[арг1],[арг2])+mid$(a$,[арг1],[арг2])+ ...итд
Спасибо большое заранее

@Наталья8 · 31.01.2022, 20:56

От такого дураком можно стать.

@locm · 01.02.2022, 12:32

Не по теме:

trofleratrofimo, продублируйте сообщение еще 1000 раз, иначе не помогут.

@trofleratrofimo · 01.02.2022, 21:26 **[ТС]**

m-ch, можете написать программу до 500 слов пожалуйста

@m-ch · 01.02.2022, 21:42

trofleratrofimo, вам нужно аналогично, как это сделано в 3м посте?
Сделать так не сложно, более 500 слов можно составить, но подобный подход это извращение

@wer1 · 02.02.2022, 11:49

Ответ от m-ch:
Сделать так не сложно, более 500 слов можно составить, но подобный подход это извращение
...
Согласен!

Уважаемый m-ch,
мне кажется, что в этой задаче опущены несколько условий, которые просто подразумеваются.
1. Должен быть достаточно большой файл со списком русских слов.
После этого алгоритм решения задачи прозрачен как стёклышко.

Описание алгоритма:
1.
программа открывает файл и считывает из него первое слово
2.
далее (в цикле) программа проверяет посимвольно: нет ли в этом слове букв, которые не входят в слово "информатика".
если нет, то это слово можно распечатать
в противном случае программа читает из файла следующее слово
3
если поставить счётчик напечатанных слов, то на пятисотом слове он остановит работу программы

...
проверка слов как раз и требует использования функции MID$()
...
примечание
Круто вы решали эту задачу! Я бы так не догадался!

@m-ch · 02.02.2022, 12:23

Сообщение от wer1

мне кажется, что в этой задаче опущены несколько условий, которые просто подразумеваются.

wer1, ТС указал, что

Сообщение от trofleratrofimo

Это всё объяснение, что есть в задание

Другого нет, значит то, что я сделал в 3м посте больше всего подходит под задание

по алгоритму
Ссылку на словарь на 51 тыс. слов выкладывал в 9м посте
1. Открытие файла и перебор - ничего сложного
2. Проверка на корректность слова:
код на VBA, тип функции as Boolean заменил на as Integer для совместимости с QB, при этом QB плохо работает с кириллицей

Visual Basic
1
2
3
4
5
6
7
Function ChekWords%(w1 As String, w2 As String)
    Dim i As Integer
    For i = 1 To Len(w1)
        If InStr(w2, Mid$(w1, i, 1)) = 0 Then Exit Function
    Next i
    ChekWords = -1
End Function

где w1 - проверяемое слово
w2 - исходное слово, в данном случае нужно использовать "информатика"

генерация строки MID$(...)+ MID$(...) и т.д.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function MidStr$(w1 As String, w2 As String)
    Dim i As Integer, j As Integer, a() As Integer, txt As String
    If Len(w1) = 0 Then Exit Function
    ReDim a(1 To Len(w1)) As Integer
    For i = 1 To Len(w1)
        j = InStr(w2, Mid$(w1, i, 1))
        If j = 0 Then Exit Function
        a(i) = j
    Next i
    For i = 1 To Len(w1)
        For j = i + 1 To Len(w1)
            If a(j) <> a(j - 1) + 1 Then Exit For
        Next j
        txt = txt & " + Mid$(a," + Str$(a(i)) + "," + Str$(j - i) + ")"
        i = j - 1
    Next i
    MidStr = "Print " + Mid$(txt, 4)
End Function

w1 и w2 аналогично, как в предыдущей функции
хочу обратить внимание, что если буквы идут подряд в слове w1 как в w2 то можно получить сразу склейку не по одной букве, а по 2 или 3 и т.д.

В VBA работает, постарался написать в стиле QB, но работоспособность не проверял, однозначно ReDim в QB не будет работать, нужно заменить на просто Dim, и с кириллицей в QB у меня проблемы

@CoderHuligan · 03.02.2022, 12:58

А где в задании сказано, что слова должны быть осмысленными?

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@trofleratrofimo 0 / 0 / 0 Регистрация: 03.11.2021 Сообщений: 60

	Программа из слова "информатика" составляла 500 новых слов 25.01.2022, 21:50. Показов 3019. Ответов 21 Метки нет (Все метки) Здравствуйте, нужно написать программу на языке QBasic, чтобы программа из слова "информатика" составляла 500 новых слов. Буквы могут повторяться неограниченное количество раз. Использовать только операторы mid$(a$,[арг1],[арг2]) +mid$(a$,[арг1],[арг2])+mid$(a$,[арг1],[арг2])+ ...итд Спасибо большое заранее 0

@Garic73 536 / 354 / 146 Регистрация: 21.09.2016 Сообщений: 1,335
	25.01.2022, 22:05
	Слов или сочетаний букв? 0

@vlisp 1064 / 985 / 153 Регистрация: 10.08.2015 Сообщений: 5,368
	27.01.2022, 14:33
	это онанизм какой-то, программы должны заменять человеческий труд, а тут все наоборот. не знаю зачем заниматься этой графоманией на уровне школьника во второй раз увидевшего компьютер? и это на языке, поддерживающем структурное и какое никакое ООП 1

@trofleratrofimo 0 / 0 / 0 Регистрация: 03.11.2021 Сообщений: 60
	27.01.2022, 15:42 [ТС]
	Garic73, слов 0

@trofleratrofimo 0 / 0 / 0 Регистрация: 03.11.2021 Сообщений: 60
	28.01.2022, 19:19 [ТС]
	CoderHuligan, Здравствуйте, не поможете решить задание? нужно написать программу на языке QBasic, чтобы программа из слова "информатика" составляла 500 новых слов. Буквы могут повторяться неограниченное количество раз. Использовать только операторы mid$(a$,[арг1],[арг2]) +mid$(a$,[арг1],[арг2])+mid$(a$,[арг1],[арг2])+ ...итд 0

@trofleratrofimo 0 / 0 / 0 Регистрация: 03.11.2021 Сообщений: 60
	29.01.2022, 15:14 [ТС]
	CoderHuligan, Это всё объ яснение, что есть в задание 0

@trofleratrofimo 0 / 0 / 0 Регистрация: 03.11.2021 Сообщений: 60
	31.01.2022, 15:12 [ТС]
	CoderHuligan, Здравствуйте, нужно написать программу на языке QBasic, чтобы программа из слова "информатика" составляла 500 новых слов. Буквы могут повторяться неограниченное количество раз. Использовать только операторы mid$(a$,[арг1],[арг2]) +mid$(a$,[арг1],[арг2])+mid$(a$,[арг1],[арг2])+ ...итд Спасибо большое заранее 0

@Наталья8 520 / 374 / 66 Регистрация: 09.03.2016 Сообщений: 3,976
	31.01.2022, 20:56
	От такого дураком можно стать. 0

@locm
	01.02.2022, 12:32
	Не по теме: trofleratrofimo, продублируйте сообщение еще 1000 раз, иначе не помогут. 0

@trofleratrofimo 0 / 0 / 0 Регистрация: 03.11.2021 Сообщений: 60
	01.02.2022, 21:26 [ТС]
	m-ch, можете написать программу до 500 слов пожалуйста 0

@m-ch 6180 / 945 / 313 Регистрация: 25.02.2011 Сообщений: 1,381 Записей в блоге: 1
	01.02.2022, 21:42
	trofleratrofimo, вам нужно аналогично, как это сделано в 3м посте? Сделать так не сложно, более 500 слов можно составить, но подобный подход это извращение 0

@wer1 1104 / 480 / 33 Регистрация: 05.07.2018 Сообщений: 1,870 Записей в блоге: 7
	02.02.2022, 11:49
	Ответ от m-ch: Сделать так не сложно, более 500 слов можно составить, но подобный подход это извращение ... Согласен! Уважаемый m-ch, мне кажется, что в этой задаче опущены несколько условий, которые просто подразумеваются. 1. Должен быть достаточно большой файл со списком русских слов. После этого алгоритм решения задачи прозрачен как стёклышко. Описание алгоритма: 1. программа открывает файл и считывает из него первое слово 2. далее (в цикле) программа проверяет посимвольно: нет ли в этом слове букв, которые не входят в слово "информатика". если нет, то это слово можно распечатать в противном случае программа читает из файла следующее слово 3 если поставить счётчик напечатанных слов, то на пятисотом слове он остановит работу программы ... проверка слов как раз и требует использования функции MID$() ... примечание Круто вы решали эту задачу! Я бы так не догадался! 0

@CoderHuligan 1744 / 1009 / 257 Регистрация: 30.06.2015 Сообщений: 5,120 Записей в блоге: 56
	03.02.2022, 12:58
	А где в задании сказано, что слова должны быть осмысленными? 0

Программа из слова "информатика" составляла 500 новых слов

Решение