Если не математическим, а программным образом, то примерно так A2 (), А3 (), А4 () , А5 () это массивы, в которых сохраним эти числац 2=0; ц 3=0; ц 4=0; ц 5=0; // это их индексыДля ц=100 до 999 Цикл Если Остаток (ц +1,2)=0 Тогда ц 2=ц 2+1; А2 (ц 2)=ц; КонецЕсли; Если Остаток (ц +2,3)=0 Тогда ц 3=ц 3+1; А3 (ц 3)=ц; КонецЕсли; Если Остаток (ц +3,4)=0 Тогда ц 4=ц 4+1; А4 (ц 4)=ц; КонецЕсли; Если Остаток (ц +4,5)=0 Тогда ц 5=ц 5+1; А5 (ц 5)=ц; КонецЕсли; КонецЦикла; // Теперь их напечатаемСообщить ("При увеличении на 1 делятся на 2"); Для ц=1 по ц 2 Цикл Сообщить (А2 (ц); КонецЦикла; Сообщить ("При увеличении на 2 делятся на 3"); Для ц=1 по ц 3 Цикл Сообщить (А3 (ц); КонецЦикла; Сообщить ("При увеличении на 3 делятся на 4"); Для ц=1 по ц 4 Цикл Сообщить (А4 (ц); КонецЦикла; Сообщить ("При увеличении на 3 делятся на 4"); Для ц=1 по ц 4 Цикл Сообщить (А4 (ц); КонецЦикла; Сообщить ("При увеличении на 4 делятся на 5"); Для ц=1 по ц 5 Цикл Сообщить (А5 (ц); КонецЦикла; Ну вот, где-то так. Но если математически, то нужно по-другому, и информатика здесь совершенно ни при чем, скорее теория чисел. Да, в условии не сказано, что ОДНОВРЕМЕННО, поэтому я решал задачу «не одновременно» Если одновременно, то еще проще, всего одно условие со сложным условием и можно без массивов. Ну и еще: использована функция Остаток (), она есть в любом языке. Если нет (?!), то легко пишется вручную.
