Это очень просто: компьютерные справочные системы нам в решении наших проблем, когда у пользователя появляется проблема которую он не может решить сам, он обращается к компьютерным справочникам.
Чтоб продать игру, нужно создать хорошую игру. а по сравнению с тем, какие игры сейчас выпускают, многим лень этим заниматься. поэтому предпочтительнее делать довольно таки простую игру, потому что всегда найдутся те, кому она придется по вкусу. суть доната состоит в том, чтобы получить определенные плюшки за реальные деньги. игры в наше время популярны, а поэтому и интерес стать более крутым в виртуальном мире больше. а так как донат не один, то это желание все больше и больше подхлестывает закинуть денежек. в некоторых играх можно также заметить, что различие между донатом и обычным игроком довольно таки велико, и поэтому игроку приходится либо не играть, либо класть деньги
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
Хватит. Если хочешь еще, задавай остальные задачи в другом вопросе.
