Find square difference: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 269:
<pre>501</pre>
=={{header|EasyLang}}==▼
<syntaxhighlight lang="easylang">▼
repeat▼
i += 1▼
square = pow i 2▼
diffSquare = pow (i - 1) 2▼
difference = square - diffSquare▼
until difference > 1000▼
.▼
print i▼
</syntaxhighlight>▼
=={{header|F_Sharp|F#}}==▼
<syntaxhighlight lang="fsharp">▼
let n=1000 in printfn $"%d{((n+1)/2)+1}"▼
</syntaxhighlight>▼
{{out}}▼
<pre>▼
501▼
</pre>▼
=={{header|Delphi}}==
{{works with|Delphi|6.0}}
{{libheader|SysUtils,StdCtrls}}
<syntaxhighlight lang="Delphi">
Line 320 ⟶ 299:
Smallest Difference N^2: < 32000 is: 16001
Smallest Difference N^2: < 2000000000 is: 1000000001
▲</pre>
▲=={{header|EasyLang}}==
▲<syntaxhighlight lang="easylang">
▲repeat
▲ i += 1
▲ square = pow i 2
▲ diffSquare = pow (i - 1) 2
▲ difference = square - diffSquare
▲ until difference > 1000
▲.
▲print i
▲</syntaxhighlight>
▲=={{header|F_Sharp|F#}}==
▲<syntaxhighlight lang="fsharp">
▲let n=1000 in printfn $"%d{((n+1)/2)+1}"
▲</syntaxhighlight>
▲{{out}}
▲<pre>
▲501
</pre>
|