1. Сформировать

текст заданной длины, состоящий

из 2 символов А и В.

2. Найдите количество символов заданного числа 25

3. Написать программу обращения заданного слова

(вывести символы строки в обратном порядке).

(слово привет)

4. Составить программу печати кодов всех

символов,

входящих в состав заданного текста.

5. Найти сумму цифр заданного числа. (число 25)

6. Составить программу для подсчета русских букв "А"

в заданном тексте

7. Произвести подсчет слогов в данном русском тексте

задания про тексты, там можно любое предложение, какое хотите

1) Текст заданной длины n, состоящий из букв А и В

Dim A (2) As String, n As Integer, i As Integer, Txt As String, k As Integer

Cls: Randomize

A (1) = "A": A (2) = "B"

Print "Введите длину текста: "; : Input n

Txt = ""

For i = 1 To n

k = Int (Rnd (1) * 2) + 1 ' k - случайное число, равное 1 или 2

Txt = Txt & A (k) ' Прибавляем к тексту случайно букву А или В

Next i

Print Txt

End

2) Количество символов заданного числа

Dim n As Integer, k As Integer

Cls

Print "Введите число: "; : Input n

k = 0

Do While n > 0

n = Int (n / 10)

k = k + 1

Loop

Print k

End

3) Вывести символы строки в обратном порядке

Dim n As Integer, i As Integer, Txt1 As String, Txt2 As String

Cls

Print "Введите строку ": Input Txt1

Txt2 = ""

For i = Len (Txt1) To 1 Step - 1

Txt2 = Txt2 & Mid (Txt1, i, 1)

Next i

Print Txt2

End

Хватит. Если хочешь еще, задавай остальные задачи в другом вопросе.