Сдать решение задачи D-Магические числа Ограничение времени: 1 с

Ограничение памяти: 256M

Оставшиеся посылки: 100

Магические числа

На уроках информатики Леша заинтересовался магическими числами. Это такие натуральные числа, сумма цифр которых равна самому числу.

Как-то раз в домашнем задании Леше попалась интересная задача: «Найдите количество магических чисел, меньших или равных

N

».

Так как Леша увлекается программированием, то он очень хотел бы решить данную задачу с программы, но, к сожалению, ему не хватает на это навыков Леше, написав программу, которая находит количество магических чисел, не превышающих

N

.

Формат входных данных

Первая строка входных данных содержит единственное число

N (1⩽N⩽10 в степени 9).

Формат результата

Программа должна вывести одно число — количество магических чисел, не превышающих N. ответ можете записать на любом языке (программирования)
у меня времени мало, награда

в конце xix века герман холлерит в америке изобрел счетно-перфорационные машины. он основал фирму по производству этих машин, которая затем была преобразована в фирму ibm.

вот проверила, так работает. нормально?

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.

в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.

а для расшифровки эти коды нужно вычитать, получаем

в   п   а   м   я

3   17   1 14 33

п   щ     о     я     к

17 27   16   33   17

-

3   17   1     14   33

14 10 15   19     17

м   и   н     с       к

н     щ     ё   п

15   27   7     17

-

3     17   1     14 

12   10   26   3

к     и     е     в

var d,i: integer;

s: string;

begin

  read(d);

  s: =str(d);

  for i: = 1 to length(s) do

        if int(s[i]) mod 2=0 then

              writeln(s[i]);

end.