Напишите программу, которая вводит натуральное число и находит все числа на отрезке [0, n], сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8 и 9 (например, число 9). используйте функцию для вычисления суммы цифр числа.

//pascal abc.net v3.0 сборка 1111 var   n,i: integer;   function sol(a: integer): integer; var   i,k: integer;   s: string; begin k: =0; str(a,s);   for i: =1 to length(s) do   k: =k+strtoint(s[i]);   sol: =k; end;   begin   readln(n);   for i: =0 to n do     if (sol(i*2)=sol(i*3)) and (sol(i*3)=sol(i*4)) and (sol(i*4)=sol(i*5)) and (sol(i*5)=sol(i*6)) and (sol(i*6)=sol(i*7)) and (sol(i*7)=sol(i*8)) and (sol(i*8)=sol(i*9)) then writeln(i); end.пример ввода: 555пример вывода: 0918459099180198297396450495549

2, 3, 6, 18, 108

каждый член последовательности начиная с третьего равен произведению двух предыдущих:

2 * 3 = 6

3 * 6 = 18

6 * 18 = 108