Написать программу вычисления суммы всех 3-х значных чисел, у которых сумма цифр…

Написать программу вычисления суммы всех 3-х значных чисел, у которых сумма цифр кратно числу а. Нахождения суммы цифр 3 х значного числа написатьподпрограмму. (С ФУНКЦИЕЙ) i=от 100 до 999i=326x=i div 100y=i div 10 mod 10z=i mod 10S=x+y+z2) Определить значение переменной после выполнения фрагмента алгоритма: S: =24; m: =3456; while s>10 do beginm: =m mod 10; S: =s-mend; S: =S+m; write (m); МНЕ НУЖНО ИМЕННО РЕШЕНИЕ, А НЕ ТУПО ОТВЕТ!