Найти числа делящиеся на каждую из своих цифр через реккрсию

[*cash*]

Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр. Описать и использовать рекурсивную процедуру.

[qpuTuJlb]

если правильно понял то это оно должно быть

var
i:integer;
n,kol:integer;
begin
n:=strtoint(Edit1.Text);
For i:=1 to n Do
if(n mod i=0) then kol:=kol+1;
Edit2.Text:=inttostr(kol);
end;

[Serge_Bliznykov]

если правильно понял то это оно должно быть

нет, Вы поняли НЕПРАВИЛЬНО!

у Вас НЕТ рекурсии вообще.

да и вообще решение неверное, Вы не ищите нужные числа!

[*cash*]

Я вот написал код. Все работает и правильно показывает, но если я задаю n больше 100, она вылетает. Причем при 100 еще работает, 101 уже нет (((

uses
  SysUtils;

procedure rec (const n:byte; i:byte);
var  x:byte;  v:boolean;
begin
If i<>n then
begin
v:=true;
inc(i);
if  (i mod 10 <> 0) then
begin
x:=i;
while x<>0 do
     begin
     if (i mod (x mod 10)=0) then
     else v:=false;
     x:=x div 10;
     end;
end
          else v:=false;
if v=true then writeln (i);
rec (n,i);
end;

end;


var  i:byte;
const n=100;
begin
i:=0;
rec(n,i);
readln;
end.

[denisbrain]

Сообщение от *cash*

Я вот написал код. Все работает и правильно показывает, но если я задаю n больше 100, она вылетает. Причем при 100 еще работает, 101 уже нет (((

поэтому та рекурсия вещь хорошая но в меру - стек переполняет быстро...
push&pop

[BDA]

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 1000;

var i: integer;

procedure checker(a, b: integer);
begin
  if b = 0 then
    writeln(a)
  else
    if b mod 10 <> 0 then
    begin
      if a mod (b mod 10) = 0 then
        checker(a, b div 10);
    end
    else
      checker(a, b div 10);
end;

begin
  for i := 1 to n do
  begin
    checker(i, i);
  end;
  readln;
end.

[*cash*]

А глубина рекурсии будет равна n?

[BDA]

Глубина рекурсии в моем коде равна количеству цифр в обрабатываемом числе.
Цикл "прогоняет" все числа от 1 до n и для каждого вызывает рекурсивную проверку.