Show the (decimal) value of a number of 1s appended with a 3, then squared: Difference between revisions
Show the (decimal) value of a number of 1s appended with a 3, then squared (view source)
Revision as of 07:13, 6 April 2021
, 3 years agoadd FreeBASIC
(Added Wren) |
(add FreeBASIC) |
||
Line 23:
1111113 1234572098769
11111113 123456832098769
</pre>
=={{header|FreeBASIC}}==
<lang freebasic>function make13(n as uinteger) as uinteger
dim as uinteger t = 0
while n
t = 10*(t+1)
n-=1
wend
return t+3
end function
dim as ulongint m
for n as uinteger = 0 to 7
m = make13(n)^2
print make13(n), m
next n</lang>
{{out}}
<pre>
3 9
13 169
113 12769
1113 1238769
11113 123498769
111113 12346098769
1111113 1234572098769
11111113 123456832098769
</pre>
|