Т.к. явно в запросе версия языка была не указана, писал на VB6.
1. Не уверен, что правильно понял условие, но вроде бы так:
| Код |
Private Sub Main()
Dim X As Double, Xmin As Double, Xmax As Double
Dim I As Long, Imin As Long, Imax As Long
I=1
Imin=1
Imax=1
X=InputBox("Введите число")
Xmax=X
Xmin=X
Do While MsgBox("Продолжить последовательность?", vbYesNo)=vbYes
X=InputBox("Введите число")
I=I+1
If If X<Xmax Then
If X<Xmin Then
Xmin=X
Imin=I
End If
Else
Xmax=X
Imax=I
End If
Loop
MsgBox "Минимальное значение " & Xmin & " номер первого минимального значения - " & Imin
MsgBox "Максимальное значение " & Xmax & " номер первого максимального значения - " & Imax
End Sub
|
2. Где-то так:
| Код |
Private Sub Main()
Dim X As Double
Dim Sum As Double
Dim Pos As Long, Zeros As Long, ZerosMax As Long
Dim ZeroChain As Boolean
Pos=0
Sum=0
ZeroMax=0
ZeroChain=False
Do
X=InputBox("Введите число")
If X=0
If ZeroChain Then Zeros=Zeros+1 Else Zeros=1
Else
Sum=Sum+X
Pos=Pos+1
If ZeroChain Then
If Zeros>ZerosMax Then ZerosMax=Zeros
End If
End If
Loop Until MsgBox ("Закончить ввод?", vbYesNo)=vbYes
MsgBox "Длина максимальной цепочки нулей: " & ZerosMax
MsgBox "Количество положительных чисел: " & Pos
MsgBox "Их сумма: " & Sum
End Sub
|
3. Метод стремный, но должен работать:
| Код |
Private Sub Main()
Dim Sum As Long, X As Integer, S As String, i As Long
S=InputBox("Введите число")
For i=1 to Len(S)
X = Asc(Mid$(S,i,1))-Asc(0)
If (X<10) And (X>=0) Then Sum=Sum+X
Next i
MsgBox "Сумма цифр во введенном числе:" & Sum
End Sub
|
|