ПОМОГИТЕ! Опции

[DarkAngel1994]

Вводятся два числа N и K. Выведите количество чисел из
диапазона от 1 до N включительно таких, что их сумма цифр делится на K.

Пример ввода
100 3

Пример вывода
33

Пример ввода
22 4

Пример вывода
5

[Федосеев Павел]

Уже и это вызывает затруднение. Куда мир катится?

Не поверите! В нашей стране преподаватель университета чаще всего удивлён выполненной работе студента. Утверждаю это не по-наслышке. Недавно делал для одного из своих начальников, получающего заочное образование, контрольную (или домашнюю) работу по математике (т.е. для меня эта работа была "бесплатной шабашкой"="кровавой шабашкой"= барщиной). Оформил аккуратно, но математически не совсем строго. За счёт упрощения объём писанины сократился в 1,5-2 раза. Преподаватель удивился, обрадовался, пришёл в восторг от наличия графика (это он повторил несколько раз), поставил оценку пять. Я был шокирован.
Хотя, справедливости ради, скажу, что это пока эпизоды, а не повсеместное явление.

DarkAngel1994, я прошу прощения за свой первый пост. Возможно, что ты сделаешь эту задачу самостоятельно, но пока не знаешь с чего начать. Давай-ка, я дам тебе лёгкого пинка в нужном направлении.

Когда я решаю подобные учебные задачки, я начинаю с простого:

program MyProg;
begin
end.

Далее, между begin и end я набрасываю те пресловутые "три строчки кода". Подсчитываю переменные и заношу их в секцию var

program MyProg;
var
  n, k : integer;
begin
  "три строчки кода"
end.

Пытаюсь компилировать, получаю сообщения компилятора об отсутствии ";", о грамматических ошибках. Исправляю. Тестирую на наборах данных. Ищу и исправляю логические ошибки. Вот.

Что из этого вызывает у тебя затруднение?

Выделение цифр и их суммирование? Смотри

    Sum:=0;
    r:=i;
    repeat
      Sum:=Sum+(r mod 10);
      r:=r div 10;
    until r=0;

Весь форум замер в ожидании твоего роста, прогресса, проявлений силы мысли...
Тысячелетия с пирамид смотрят на тебя!

Не дай пропасть втуне моему набору длинного текста!