ветвление

[SwAAAte83]

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

[Serge_Bliznykov]

а, если не секрет, что не получается?
не знаете, как организовать цикл от 1 до N ?
или как "разобрать" число на отдельные циферки? или как проверить, что число делится на все эти циферки?

p.s. перебор по цифрам числа с проверкой кратности может выглядеть примерно так:

  Num := i;
  isKratno := true;
  while (Num>0) and isKratno do begin
      OneDigit := Num mod 10; {берём очередную цифру из числа}
      Num := Num div 10; {отбрасываем эту цифру, число "сдвигаем" }
      if OneDigit = 0 then isKratno := false
      else
          if (i div OneDigit)<>0 then isKratno := false
  end;

[SwAAAte83]

если быть совсем честным совсем не понимаю как можно осуществить эту прогу.. само ее написание..

[Stilet]

само ее написание..

А методичку почитать? Или преподаватель ничего не давал?

[SwAAAte83]

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

[Stilet]

думал тут помогут..

Как? Как можно обьяснить действие: "Открыть Турбопаскаль, в новом окне набрать программу и нажать F9"?