Find square difference: Difference between revisions
add freebasic
No edit summary |
(add freebasic) |
||
Line 35:
{{out}}
<pre>501</pre>
=={{header|FreeBASIC}}==
<lang freebasic>function fpow(n as uinteger) as uinteger
dim as uinteger i
while i^2-(i-1)^2 < n
i+=1
wend
return i
end function
print fpow(1001)</lang>
{{out}}<pre>501</pre>
=={{header|Perl}}==
| |||