Numbers divisible by their individual digits, but not by the product of their digits.: Difference between revisions
Numbers divisible by their individual digits, but not by the product of their digits. (view source)
Revision as of 16:00, 8 May 2021
, 3 years agoAdd ALGOL-M
Not a robot (talk | contribs) (Add BCPL) |
Not a robot (talk | contribs) (Add ALGOL-M) |
||
Line 152:
184 222 244 248 264 288 324 333 336 366 396 412 424 444 448
488 515 555 636 648 666 728 777 784 824 848 864 888 936 999</pre>
=={{header|ALGOL-M}}==
<lang algolm>begin
integer function mod(a, b);
integer a, b;
mod := a-a/b*b;
integer function divisible(n);
integer n;
begin
integer r, p, c, d;
p := 1;
c := n;
r := 0;
while c <> 0 do
begin
d := mod(c, 10);
if d = 0 then go to stop;
if mod(n, d) <> 0 then go to stop;
p := p * d;
c := c / 10;
end;
if mod(n, p) <> 0 then r := 1;
stop:
divisible := r;
end;
integer c, n;
c := 0;
for n := 1 step 1 until 1000 do
begin
if divisible(n) <> 0 then
begin
if (c-1)/10 <> c/10 then
write(n)
else
writeon(n);
c := c + 1;
end;
end;
write("");
end</lang>
{{out}}
<pre> 22 33 44 48 55 66 77 88 99 122
124 126 155 162 168 184 222 244 248 264
288 324 333 336 366 396 412 424 444 448
488 515 555 636 648 666 728 777 784 824
848 864 888 936 999</pre>
=={{header|ALGOL W}}==
| |||