1. Сформироватьтекст заданной длины, состоящий из 2 символов…

1) Текст заданной длины n, состоящий из букв А и ВDim A (2) As String, n As Integer, i As Integer, Txt As String, k As IntegerCls: RandomizeA (1)="A": A (2)="B"Print «Введите длину текста: ";: Input nTxt="For i=1 To n k=Int (Rnd (1)*2)+1 ' k — случайное число, равное 1 или 2 Txt=Txt & A (k) ' Прибавляем к тексту случайно букву А или ВNext iPrint TxtEnd2) Количество символов заданного числаDim n As Integer, k As IntegerClsPrint «Введите число: ";: Input nk=0Do While n > 0 n=Int (n / 10) k=k+1LoopPrint kEnd3) Вывести символы строки в обратном порядкеDim n As Integer, i As Integer, Txt1 As String, Txt2 As StringClsPrint «Введите строку ": Input Txt1Txt2="For i=Len (Txt1) To 1 Step -1 Txt2=Txt2 & Mid (Txt1, i, 1) Next iPrint Txt2EndХватит. Если хочешь еще, задавай остальные задачи в другом вопросе.