Задание: Сформировать по строке a$ новую строку по правилу: если слово имеет нечётную длину, удалить в нём среднюю букву. QBasic Набросок:Dim a$ As String, back$ As String, B() As String, i As Long, Poz As Long, n As Long Print "Vvedite stroku"; Input a$ back$ = a$: i = 1: n = 1 Do Poz = InStr(i, a$, " ") if Poz > 0 Then n = n + 1 Else Exit Do i = Poz + 1 Loop ReDim B(n) n = 1 Do Poz = InStr(1, a$, " ") if Poz > 0 Then B(n) = Left(a$, Poz - 1) a$ = Mid(a$, Poz + 1) Else Exit Do End if Loop a$ = "" For i = 1 To n If Len(B(i)) Mod 2 = 1 Then B(i) = Left(B(i), (Len(B(i)) - 1)/2) & Mid(B(i), (Len(B(i)) + 3)/2) a$ = a$ & B(i) & " " Next i a$ = Trim(a$) Print "Staraya stroka: " & back$ & CHR(13) & CHR(10) $ "Novaya stroka: " & a$ EndПодскажите)И если можно исправленный вариант, премного благодарен.

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Задание: Сформировать по строке a$ новую строку по правилу: если слово имеет нечётную длину, удалить в нём среднюю букву. QBasic Набросок:Dim a$ As String, back$ As String, B() As String, i As Long, Poz As Long, n As Long Print "Vvedite stroku"; Input a$ back$ = a$: i = 1: n = 1 Do Poz = InStr(i, a$, " ") if Poz > 0 Then n = n + 1 Else Exit Do i = Poz + 1 Loop ReDim B(n) n = 1 Do Poz = InStr(1, a$, " ") if Poz > 0 Then B(n) = Left(a$, Poz - 1) a$ = Mid(a$, Poz + 1) Else Exit Do End if Loop a$ = "" For i = 1 To n If Len(B(i)) Mod 2 = 1 Then B(i) = Left(B(i), (Len(B(i)) - 1)/2) & Mid(B(i), (Len(B(i)) + 3)/2) a$ = a$ & B(i) & " " Next i a$ = Trim(a$) Print "Staraya stroka: " & back$ & CHR(13) & CHR(10) $ "Novaya stroka: " & a$ EndПодскажите)И если можно исправленный вариант, премного благодарен.» от пользователя Ульяна Маляр в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.