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

Число подходит, если оно делится на каждую свою цифру. Числа, в записи которых есть цифра \(0\), не подходят: на ноль делить нельзя.

Программа на Паскале:

program Digits;
var
  n, i, t, d: integer;
  ok: boolean;
begin
  readln(n);
  for i := 1 to n do
  begin
    t := i;
    ok := true;
    while t > 0 do
    begin
      d := t mod 10;
      if (d = 0) or (i mod d <> 0) then
        ok := false;
      t := t div 10;
    end;
    if ok then
      write(i, ' ');
  end;
end.

0 0 Пожаловаться