Воспитание детей

расставить знаки что бы получилось верное равенство 1 2 3 4 5 = 2

Sub ppp()
ss = 0 ' это переменная аккумулятор в которой получаем окончательный и промежуточный результаты
oper1 = " +"
oper2 = " -"
kk = 3
For ii1 = 1 To 2
For ii2 = 1 To 2
For ii3 = 1 To 2
For ii4 = 1 To 2
ss = Cells(2, 1)
Cells(kk, 1) = Cells(2, 1)
For nn = 2 To 5
Cells(kk, 2 * nn - 1) = Cells(2, 2 * nn - 1)
If nn - 1 = 1 Then ' можете этот кусок сменить на кусок с select case )))
ii0 = ii1
ElseIf nn - 1 = 2 Then
ii0 = ii2
ElseIf nn - 1 = 3 Then
ii0 = ii3
ElseIf nn - 1 = 4 Then
ii0 = ii4
End If
If ii0 = 1 Then
Cells(kk, 2 * nn - 2) = oper1
ss = ss + Cells(kk, 2 * nn - 1)
Else
Cells(kk, 2 * nn - 2) = oper2
ss = ss - Cells(kk, 2 * nn - 1)
End If
Next nn
Cells(kk, 11) = ss
kk = kk + 1
Next ii4
Next ii3
Next ii2
Next ii1
End Sub

вот результат:


и можно заметит что ответы все нечетные, догадаетесь почему?
а значит ответа на ваш вопрос нет при знаках + -и

надеюсь добавить другие операции вы уже сможете сами))))
Татьяна Михайлова
Татьяна Михайлова
99 892
Лучший ответ
(2+3)-4+1=2. Вот как-то так
EL
Elena Love
11 174
не знаю (((
(-1+2)*3+4-5=2
-1*2+3-4+5=2
(-1/2+3)*4/5=2
(1+2+3+4)/5=2
(1*2*3+4)/5=2
-((1+2*3)-(4+5))=2
(1+2)/3-4+5=2
1*2+3-4+5=2

P.S Продаю программу для решения вот таких задач. Любое кол-во символов. Дешево!

VBA,Visual Basic... Задачи, программы и тд. Пишу на заказ. Недорого. D-mon55@ya.ru
Репетиторство.
у меня так (1+2+3+4) / 5 = 2..
Tanzila Ernisbekova
Tanzila Ernisbekova
1 733
-1-2*3+4+5=2 А можно и так =)

Похожие вопросы