1)20+50+63=133(всего денег потрачено на продукты).
2) 500-133=367(остаток денег, после покупки продуктов)
а как в паскале делать, не догадываюсь, что если, то есть) не судите строго, хоть чем-то помогла))
В моем учебнике <span>по математике 1024 мб информации.</span>
<span>Add AX,[DI] - Прибавляет к регистру AX значения по адресу DI
Mov [SI],CI - Перемещение значения из регистра CI по адресу [SI]
Mov[DI],DI - </span><span><span>Перемещение значения из регистра DI по адресу [DI]
</span>
Jmp AX - Переход к строке под номером из регистра AX
Call BX
- вызов команды под номером BX
Примерно так...
</span>
Sub MyTest()
Dim a As Variant, i As Integer
a = Range("A1:B5")
For i = 1 To 5
Cells(i, 3) = S(a(i, 1), a(i, 2))
Next i
End Sub
Function S(ByVal x As Double, ByVal y As Double) As Double
Dim i As Integer
If x < y Then
S = 0
For i = 1 To 20
S = S + x ^ i * y ^ (i + 1)
Next i
ElseIf x > y Then S = (x * y) ^ 2
Else: S = x * x + y * y
End If
End Function
x - по колонке A1:A5, y - по колонке B1:B5, результат в C1:C5
Подробнее расскажи о сайте (содержание и вид)
