Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.
Код:
function check (n:integer):boolean;
var
x:integer;
begin
x:=n;
check:=true;
while x<>0 do begin
if ((x mod 10)=0) or (n mod (x mod 10)<>0) then
check:=false;
x:=x div 10;
end;
end;
var
n,i:integer;
begin
write('n=');
readln(n);
for i:=1 to n do
if check(i) then writeln(i);
end.
Админ: Пользуемся тегами для оформления кода!
Как правильно сделать объяснение, построчно.
Больше интересует функциональный блок