Предмет: Информатика,
автор: ulyana201505
Найдите натуральные числа, не превосходящие n, которые делятся на каждую из своих цифр.
Ответы
Автор ответа:
1
var
n, i, a, k:
integer;
f: boolean;
begin
readln(n);
for i := 1 to n do
begin
a := i;
f := true;
while a > 0 do
begin
k := a mod 10;
a := a div 10;
if (k = 0) or (i mod k <> 0) then //если в числе есть 0, то считать что на 0 не делится, иначе замените = на <>
f := False;
end;
if f then
write(i, ' ');
end;
end.
n, i, a, k:
integer;
f: boolean;
begin
readln(n);
for i := 1 to n do
begin
a := i;
f := true;
while a > 0 do
begin
k := a mod 10;
a := a div 10;
if (k = 0) or (i mod k <> 0) then //если в числе есть 0, то считать что на 0 не делится, иначе замените = на <>
f := False;
end;
if f then
write(i, ' ');
end;
end.
Похожие вопросы
Предмет: Русский язык,
автор: Amely2345
Предмет: Окружающий мир,
автор: kikismus07
Предмет: Английский язык,
автор: королева5720
Предмет: Алгебра,
автор: cherroff