20.05.2008, 15:30
общий
это ответ
Здравствуйте, Яковлев Вячеслав Геннадьевич!
код в приложении
удачи.
Приложение:
1)Dim chisla(4), bol, i As IntegerFor i = 0 To 4 chisla(i) = Int(Rnd() * 100 + 1)Next iFor i = 1 To 4 If chisla(i) > chisla(i - 1) Then bol = bol + 1Next iPrint bol2)Dim i As IntegerDim inpstr, outstr As Stringinpstr = "input string" ‘ не знаю откуда строку брать будетеFor i = 1 To Len(inpstr) outstr = outstr + Right(inpstr, 1) inpstr = Left(inpstr, Len(inpstr) - 1)Next iPrint outstr