Напишите программу, которая вычисляет количество чисел от 1 до N (включая), удовлетворяющих одновременно двум условиям: число оканчивается на 9; сумма цифр числа больше 15. N вводится пользователем с клавиатуры. Входные данные: Вводится натуральное число N < 1000 Выходные данные Количество чисел от 1 до N, которые удовлетворяют одновременно двум условиям число оканчивается на 9; сумма цифр числа больше 15. Так, например, если программе подать на вход число 100, то количество чисел в диапазоне от 1 до 100, оканчивающихся на 9 и сумма цифр у которого больше 15, три. Это 79, 89 и 99 что будет если ввести 900 Написать на 1С по русски

Программа на 1С:

Процедура НайтиКоличествоЧисел()

Пока Истина Цикл
	Написать("Введите число N:")
	Ввод = Число(ПолучитьСтроку())
	Если Ввод < 1000 Тогда
		Выйти
	Иначе
		Написать("Некорректный ввод. Повторите попытку.")
	КонецЕсли
КонецЦикла

Количество = 0

Для i = 1 По Ввод Цикл
	Если Мод(i, 10) = 9 Тогда
		Сумма = 0
		Пока i > 0 Цикл
			Сумма = Сумма + Мод(i, 10)
			i = i \ 10
		КонецЦикла
		Если Сумма > 15 Тогда
			Количество = Количество + 1
		КонецЕсли
	КонецЕсли
КонецЦикла

Написать("Количество чисел от 1 до " + Строка(Ввод) + ", удовлетворяющих условиям: " + Строка(Количество))

КонецПроцедуры

НайтиКоличествоЧисел()