Question

PASCAL Напишите программу, которая вводит натуральные числа а и b и выводит на экран все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр. Входные данные Входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b . Выходные данные Программа должна вывести в одну строчку все натуральные числа на отрезке [ a , b ] , делящиеся на каждую из своих цифр. Числа разделяются пробелами. Пример: Ввод Ожидаемый 1. 10 20 2. 1939 3838 Ожидается: 1. 11 12 15 2. 1944 1962 2112 2122 2124 2128 2136 2144 2166 2184 2196 2212 2222 2224 2226 2232 2244 2248 2262 2288 2316 2322 2328 2364 2412 2424 2436 2444 2448 2488 2616 2622 2664 2688 2744 2772 2824 2832 2848 2888 2916 3111 3126 3132 3135 3144 3162 3168 3171 3195 3216 3222 3264 3276 3288 3312 3315 3324 3333 3336 3339 3366 3384 3393 3432 3444 3492 3555 3612 3624 3636 3648 3666 3717 3816 Не копируйте другой ответ с этого же сайта, он не верный

Answer 1

Решение представлено во вложениях.

Язык: Pascal

Answer 2

Вот программа на языке Pascal, которая решает данную задачу:

pascalCopy code
program DivisibleByDigits;

var
  a, b, num, digit, temp: integer;
  isDivisible: boolean;

begin
  // Вводим значения a и b
  readln(a, b);

  // Перебираем все числа на отрезке [a, b]
  for num := a to b do
  begin
    // Предполагаем, что число делится на каждую из своих цифр
    isDivisible := true;
    temp := num;
    
    // Проверяем деление на каждую цифру в числе
    while temp > 0 do
    begin
      digit := temp mod 10;
      if (digit = 0) or (num mod digit <> 0) then
      begin
        isDivisible := false;
        break; // Если число не делится на цифру, то выходим из цикла
      end;
      temp := temp div 10;
    end;
    
    // Если число делится на каждую из своих цифр, выводим его
    if isDivisible then
      write(num, ' ');
  end;
  
  writeln; // Переход на новую строку
end.

Программа сначало вводит значения a и b, затем перебирает все числа на отрезке [a, b], проверяя, делится ли каждое число на каждую из своих цифр. Если число удовлетворяет этому условию, оно выводится.