СтрокаПеребора1 = "123456";
СтрокаПеребора2 = "АБВГ";
Для Ном1 = 1 По СтрДлина(СтрокаПеребора1) Цикл
Суффикс = Сред(СтрокаПеребора1, Ном1, 1);
Для Ном2 = 1 По СтрДлина(СтрокаПеребора2) Цикл
Результат = Суффикс + Сред(СтрокаПеребора2, Ном2, 1);
Сообщить(Результат);
КонецЦикла;
КонецЦикла;
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший