Positive decimal integers with the digit 1 occurring exactly twice: Difference between revisions
Positive decimal integers with the digit 1 occurring exactly twice (view source)
Revision as of 13:04, 3 May 2022
, 2 years agoAda version
(+add Pike) |
(Ada version) |
||
Line 44:
11 101 110 112 113 114 115 116 117 118 119 121 131 141 151 161 171 181 191 211 311 411 511 611 711 811 911
</pre>
=={{header|Ada}}==
<lang Ada>with Ada.Text_IO; use Ada.Text_IO;
procedure Positives_With_1_Twice is
function One_Twice (N : Positive) return Boolean is
NN : Natural := N;
One_Count : Natural := 0;
begin
while NN > 0 loop
if NN mod 10 = 1 then
One_Count := One_Count + 1;
end if;
NN := NN / 10;
end loop;
return One_Count = 2;
end One_Twice;
begin
for N in 1 .. 999 loop
if One_Twice (N) then
Put (N'Image); Put (" ");
end if;
end loop;
New_Line;
end Positives_With_1_Twice;</lang>
{{out}}
<pre>
11 101 110 112 113 114 115 116 117 118 119 121 131 141 151 161 171 181 191 211 311 411 511 611 711 811 911</pre>
=={{header|ALGOL 68}}==
| |||