Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N–1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет». Пример. N = 44. Числа: 17, 26, 35.

ТОЛЬКО В С++

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

1. Если надо преобразовать число без знака в число

begin
  var n:=ReadInteger; // исходное число
  n:=n.ToString.Inverse.ToInteger; // полученное число
  n.Println; // вывод результата
end.

2. Если нужно только вывести результат

begin
  var n:=ReadInteger; // исходное число
  n.ToString.Inverse.ToInteger.Println
end.

3. Если надо только поменять местами символы, введенные с клавиатуры (например, два символа, изображающие число)

begin
  ReadlnString.Inverse.Println
end.

4. Если заданное число может быть отрицательным

begin
  var n:=ReadInteger; // исходное число
  var s:=Sign(n); // знак числа
  n:=Abs(n); // модуль числа
  n:=n.ToString.Inverse.ToInteger*s; // полученное число
  n.Println; // вывод результата
end.

Инструмент Из контуров (from Contours) используется для создания рельефа, формируемого линиями, расположенными на разной высоте «от земли» относительно друга-друга. Работает очень просто – рисуем (или импортируем) линии, поднимаем каждую на нужную высоту, выбираем все, активируем инструмент – появляется сглаженный рельеф.  

Инструмент Из царапины (From Scratch) используется для создания новой сетки «с нуля».  

Принцип действия инструмента Присоска (Smoove) ясен из самого названия – он предназначен для вытягивания (лепки) рельефа за счет деформации заранее подготовленной сетки (например, инструментом From Scratch). Активируем инструмент, после чего в VCB видим величину его радиуса действия, которую можно изменить на свою.  

Следующий инструмент – Штамп (Stamp) решает типичную задачу «посадки» или «врезки» в рельеф некого объекта.  

Инструмент Драпировка (Drape) работает примерно как и предыдущий, – отличие в том, что проекция ребер некой сплошной плоской поверхности, помещенной над рельефом, «прорезает» поверхность рельефа, образуя новые поверхности.  

Инструмент Добавить детали (Add Detail) предназначен для выборочной детализации за счет дробления ячеек сетки на более мелкие треугольные ячейки.  

И последний инструмент – Отразить ребро (Flip Edge) предназначен для исправления нежелательных «переломов» рельефа.