Работа 3.5 Упр.4 Задание 2 ГДЗ Семакин 10 класс (Информатика)

Задача

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

Подробный ответ

Составим функцию f(a), которая проверяет, делится ли число a на каждую свою цифру.

Идея такая:

берём число a;
по очереди выделяем его последнюю цифру m = a mod 10;
если цифра равна нулю, число не подходит, так как деление на ноль невозможно;
если a mod m ≠ 0, то число тоже не подходит;
убираем последнюю цифру: a div 10;
если все цифры проверены успешно, функция возвращает true.

Затем в основной программе перебираем все числа от 1 до n и выводим те, для которых функция f(i) истинна.

Var n,i:integer;
function f(a:integer):boolean;
var k,m:integer; b:boolean;
begin
  b:=true;
  k:=a;
  while k>0 do
  begin
    m:=k mod 10;
    if (m=0) or (a mod m <> 0) then b:=false;
    k:=k div 10;
  end;
  f:=b;
end;
begin
  write(‘n = ‘);
  readln(n);
  for i:=1 to n do
    if f(i) then write(i,’ ‘);
end.