Циклические конструкции и итерационные алгоритмы

[Vitaly409]

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


Но без массива))))) Плиз не могу никак сделать HELP профессионалы!!!)))))

[unbanned]

var
i,j,n,p:integer;

begin
for i:=1 to n do begin
p:=0;
for j:=1 to length(inttostr(i)) do
if i mod strtoint(copy(inttostr(i), j, 1))<>0 then p:=p+1;
if p=0 then {вывести i};
end;
end;

на delphi примерно так...

если на паскале, то там вместо inttostr(strtoint) придется использовать
Val(S, x, k) - для перевода строки в число
и
Str(x, S) - для перевода числа в строку

[sergey.d]

Держи.

#include <iostream>
#include <assert.h>

bool test(int num)
{
    assert(num > 0);
    for(int n = num; n; n /= 10)
    {
        int dig = n % 10;
        if(!dig || num % dig) return false;
    }
    return true;
}

int main(int, char *[])
{
    int N;
    std::cout << "N?";
    std::cin >> N;
    for(int n = 1; n <= N; ++n)
        if(test(n)) std::cout << n << ' ';
    std::cout << std::endl;
    return 0;
}

P.S. Случай, когда одна из цифр числа 0 -- спорный, неясно, как в таком случае поступать. В данном варианте такое число не проходит тест.
P.P.S. 2Unbanned: на каждой итерации преобразовывать число в строку -- имхо, перебор... Да и вообще тут строковые преобразования не нужны.

[unbanned]

Сообщение от sergey.d

[CODE]P.P.S. 2Unbanned: на каждой итерации преобразовывать число в строку -- имхо, перебор... Да и вообще тут строковые преобразования не нужны.

я Си плохо знаю.. практически совсем не знаю... поэтому код непонятен мне. согласен что преобразования сказываются на производительности... но другого варианта без массива не вижу

[sergey.d]

Сообщение от unbanned

я Си плохо знаю.. практически совсем не знаю... поэтому код непонятен мне. согласен что преобразования сказываются на производительности... но другого варианта без массива не вижу

Поверь, он есть! Для натурального числа N выражение N mod 10 дает младшую цифру числа, а N := N div 10 присваивает N значение, полученное сдвигом цифр в записи N вправо с отбрасыванием младшей цифры. Кстати, алгоритм преобразования числа в строку так и работает. Эх, тряхну стариной, за ошибки в коде сильно не бить, на паскале писал лет 15 назад. Вот проверка, делится ли число на значение одной из своих цифр:

function Test(N: integer): boolean
begin
  var K,D: integer; R: boolean;
  K := N;
  R := true;

  while K <> 0 do
  begin
    D := K mod 10;
    if D = 0 then begin R := false; break; end;
    if N mod D <> 0 then begin R := false; break; end;
    K := K div 10;
  end

  Test := R; 
end;

[unbanned]

теперь понятно. точно, забыл про 10ку