Тестирование

[ecospace]

Всех приветствую!
Начал только изучать программирование, помогите пожалуйста понять как написать программный код, который перебирает целые числа от 0 до бесконечности и выводит на экран те, которые делятся без остатка на количество разрядов (знаков) этого числа (т. е. те двухзначные, которые делятся на 2, трехзначные на три и т. д.). Выполнение обработки должно остановиться в тот момент, когда всего будет выведено N (задается пользователем) таких чисел

[Alex11223]

покажите свои наработки, конкретные вопросы и т.п. Если кто-то просто решит за вас, это вряд ли поможет вам разобраться.
http://www.programmersforum.ru/announcement.php?f=31

[newerow1989]

var n,i,j,k:integer;
begin
   Write('N = '); Readln(n);
   For i:=1 to n do
   begin
      j:=i;
      k:=0;
      While j>0 do
      begin
         k:=k+1;
         j:=j div 10;
      end;
      If i mod k=0 then
         Writeln(i);
   end;
   Readln;
end.