Sub DQXTER()
Do
k = CInt(InputBox("Введите возраст от 1 до 99"))
Loop Until k >= 1 And k <= 99
Select Case k
Case 11 To 14
MsgBox "Мне " + Str(k) + " лет"
Case Else
Select Case k Mod 10
Case 1
MsgBox "Мне " + Str(k) + " год"
Case 2 To 4
MsgBox "Мне " + Str(k) + " года"
Case Else
MsgBox "Мне " + Str(k) + " лет"
End Select
End Select
End Sub
DIM s AS STRING, s1 AS STRING, n AS INTEGER
DIM i AS INTEGER, c AS STRING * 1
INPUT "s=", s
s1 = ""
FOR i = 1 TO LEN(s)
c = MID$(s, i, 1)
IF c <> "*" THEN s1 = s1 + c + c
NEXT i
PRINT s1
END
<em><u>Тестовое решение:</u></em>
s=12.4*1.45+sin(2*Pi*x)
1122..4411..4455++ssiinn((22PPiixx))
Чтобы продолжить, нажмите любую клавишу
Попробуй по этому плану сделать :
<span>cout</span><span><<</span><span>"Введите числа:<span>\n</span>"</span><span>;</span>
<span>int</span> numbers<span>[</span><span>100</span><span>]</span>, i <span>=</span><span>0</span><span>;</span>
<span>do</span><span>cin</span><span>>></span>numbers<span>[</span>i<span>]</span><span>;</span>
<span>while</span><span>(</span>numbers<span>[</span>i<span>++</span><span>]</span><span>!</span><span>=</span><span>0</span><span>)</span><span>;</span>
<span>long</span> sum <span>=</span><span>0</span><span>;</span>
<span>for</span><span>(</span><span>int</span> j <span>=</span><span>0</span><span>;</span> j <span><</span> i<span>;</span> j<span>++</span><span>)</span> sum <span>+</span><span>=</span> numbers<span>[</span>j<span>]</span><span>;</span>
<span>cout</span><span><<</span><span>"Результат: "</span><span><<</span><span>(</span><span>float</span><span>)</span>sum<span>/</span><span>(</span>i<span>-</span><span>1</span><span>)</span><span>;</span>
7 500 + 8 700=16 200
16.2 тысяси