Special pythagorean triplet: Difference between revisions
Content added Content deleted
(Added Algol W) |
(Added XPL0 example.) |
||
Line 200: | Line 200: | ||
} |
} |
||
}</lang> |
}</lang> |
||
=={{header|XPL0}}== |
|||
<lang XPL0>int N, M, A, B, C; |
|||
for N:= 1 to sqrt(1000) do |
|||
for M:= N+1 to sqrt(1000) do |
|||
[A:= M*M - N*N; \Euclid's formula |
|||
B:= 2*M*N; |
|||
C:= M*M + N*N; |
|||
if A+B+C = 1000 then |
|||
IntOut(0, A*B*C); |
|||
]</lang> |
|||
{{out}} |
|||
<pre> |
|||
31875000 |
|||
</pre> |