1.Сформировать текст заданной длины, состоящий из 2 символов А и В. 2. Найдите количество символов заданного числа 253. Написать программу обращения заданного слова (вывести символы строки в обратном порядке). (слово привет)4....
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
Хватит. Если хочешь еще, задавай остальные задачи в другом вопросе.
Не нашли ответ?
Похожие вопросы