Сервис быстрых ответов от искусственного интеллекта
Вопрос пользователя:
Ответ нейросети:
Пример программы на языке 1С:
Процедура НайтиСумму()
Сообщить("Введите число N:")
Читать(N)
Сумма = 0
Для i = 1 По N Цикл
Если i mod 7 = 0 Тогда
СуммаЦифр = 0
Число = i
Пока Число > 0 Цикл
СуммаЦифр = СуммаЦифр + Число mod 10
Число = Цел(Число / 10)
КонецЦикла
Если СуммаЦифр mod 7 = 0 Тогда
Сумма = Сумма + i
КонецЕсли
КонецЕсли
КонецЦикла
Сообщить("Сумма чисел от 1 до " + Строка(N) + ", удовлетворяющих условиям: " + Строка(Сумма))
КонецПроцедуры
НайтиСумму()
При вводе числа 900 программа выведет результат: 108570.
Напишите нам, если в вопросе есть ваши персональные данные (yasnoponyatno24@yandex.ru)
Обратите внимание: ответы, предоставляемые искусственным интеллектом, могут не всегда быть точными. Не рассчитывайте на них в критически важных областях, таких как медицина, юриспруденция, финансы или в вопросах, связанных с безопасностью. Для важных решений всегда обращайтесь к квалифицированным специалистам. Администрация сайта не несет ответственности за контент, сгенерированный автоматически.