Делал на 1С, но при желании можно свои поставить операторы (своего языка, главное алгоритм))))Процедура КнопкаВыполнитьНажатие(Кнопка) НужноСочинитьПесенок = 2019; ПесенокВДень = 5; СочинилПесенок = 0; КоличествоДней = 0; Пока СочинилПесенок < НужноСочинитьПесенок Цикл Если (СочинилПесенок + ПесенокВДень) > НужноСочинитьПесенок Тогда ПесенокВДень = НужноСочинитьПесенок - СочинилПесенок; КонецЕсли; СочинилПесенок = СочинилПесенок + ПесенокВДень; КоличествоДней = КоличествоДней + 1; Сообщить(Строка(КоличествоДней)+" день(ей) сочинил "+Строка(ПесенокВДень)+ " песенок. Всего сочинил "+Строка(СочинилПесенок)); ПесенокВДень = ПесенокВДень + 1; КонецЦикла; Сообщить("Понадобилось "+Строка(КоличествоДней)+ " дней"); КонецПроцедурыСообщения:1 день(ей) сочинил 5 песенок. Всего сочинил 52 день(ей) сочинил 6 песенок. Всего сочинил 113 день(ей) сочинил 7 песенок. Всего сочинил 18.......57 день(ей) сочинил 61 песенок. Всего сочинил 1 88158 день(ей) сочинил 62 песенок. Всего сочинил 1 94359 день(ей) сочинил 63 песенок. Всего сочинил 2 00660 день(ей) сочинил 13 песенок. Всего сочинил 2 019Понадобилось 60 дней