А = А + В;
В = А - В;
А = А - В; // после выполнения этих трех операторов значения А и В поменяются.
Надеюсь, тема получит продолжение.
З.Ы.: мыслить как 1с-программист приветствуется

Сообщить ("А="+В);
Сообщить("В="+А)
Если (1-4) <> (5-8) тогда // 1-ое взвешивание
Если (1-4) > (5-8) тогда //результат 1-ого взвешивания
Если (1,2,5) <> (3,4,6) тогда // 2-ое взвешивание
Если (1,2,5) > (3,4,6) тогда // результат 2-ого взвешивания
Если (1,6) <> (7,8) тогда // 3-ее взвешивание
Если (1,6) > (7,8) тогда // результат 3-его взвешивания
// искомый 1 шар
иначе
// искомый 6 шар
КонецЕсли;
иначе
// искомый 2 шар
КонецЕсли;
иначе
Если (7,8) <> (3,5) тогда // 3-ее взвешивание
Если (7,8) < (3,5) тогда // результат 3-его взвешивания
// искомый 3 шар
иначе
// искомый 5 шар
КонецЕсли;
иначе
//искомый 4 шар;
КонецЕсли;
КонецЕсли;
иначе
Если 7 <> 1 тогда //3-ее взвешивание
// искомый 7 шар
иначе
// искомый 8 шар
КонецЕсли;
КонецЕсли;
иначе
Если (1,2,5) <> (3,4,6) тогда // 2-ое взвешивание
Если (1,2,5) < (3,4,6) тогда // результат 2-ого взвешивания
Если (1,6) <> (7,8) тогда // 3-ее взвешивание
Если (1,6) < (7,8) тогда // результат 3-его взвешивания
// искомый 1 шар
иначе
// искомый 6 шар
КонецЕсли;
иначе
// искомый 2 шар
КонецЕсли;
иначе
Если (7,8) <> (3,5) тогда // 3-ее взвешивание
Если (7,8) > (3,5) тогда // результат 3-его взвешивания
// искомый 3 шар
иначе
// искомый 5 шар
КонецЕсли;
иначе
//искомый 4 шар;
КонецЕсли;
КонецЕсли;
иначе
Если 7 <> 1 тогда //3-ее взвешивание
// искомый 7 шар
иначе
// искомый 8 шар
КонецЕсли;
КонецЕсли;
иначе
Если (9,10) <> (1,2) тогда // 2-ое взвешивание
Если 9 <> 1 тогда // 3-ее взвешивание
// искомый 9 шар
иначе
// искомый 10 шар
КонецЕсли;
иначе
Если 11 <> 1 тогда // 3-ее взвешивание
// искомый 11 шар
иначе
// искомый 12 шар
КонецЕсли;
КонецЕсли;
КонецЕсли;
Процедура РещениеЗадачиГлазами1С(ВерсияМатематика)
//опишим создание пустого дома
ПустойДом = Новый ТаблицаЗначений;
ПустойДом.Колонки.Добавить("Человек");
Если ВерсияМатематика Тогда
// среди гастарбайтеров оказался один умный.
// Он построил тайную комнату, прорыл туннель-дверь.
// и поселился в этой комнате
ЖительДома = ПустойДом.Добавить();
ЖительДома.Человек = "Гастарбайтер";
КонецЕсли;
// заходят два человека
ЖительДома = ПустойДом.Добавить();
ЖительДома.Человек = "житель дома 1";
ЖительДома = ПустойДом.Добавить();
ЖительДома.Человек = "житель дома 2";
Если Не ВерсияМатематика Тогда
// опишем акт зарождения жизни
НовыйЧеловекДома = "житель дома ";
Для каждого ЖительДома Из ПустойДом Цикл
ЧеловекДома = ЖительДома.Человек;
НовыйЧеловекДома = НовыйЧеловекДома + СтрЗаменить(ЖительДома.Человек,"житель дома ","");
КонецЦикла;
ЖительДома = ПустойДом.Добавить();
ЖительДома.Человек = НовыйЧеловекДома;
КонецЕсли;
// опишем выход людей
Для каждого ЖительДома Из ПустойДом Цикл
Сообщить("Из дома вышел житель: "+ЖительДома.Человек);
КонецЦикла;
КонецПроцедуры