pascal 勾股定理 要求定义一个布尔函数判断一组正整数是否为勾股数.【问题描述】 请找出K以内的勾股数,即凡满足a²+b²=c²的正整数对（a,b,c）均称一组勾股数）.要求定义一个布尔函数判断一组正整数是否为勾股数.【输入文件】(find.in) 1行,1个正整数,表示K（10
网友回答
vari,j,k,n:longint;
beginreadln(n);
i:=2;repeat
inc(i);
for j:=i to n do
for k:=j to n do
if i*i+j*j=k*k then writeln(i,' ',j,' ',k);
until i=n;
readln;readln;
end.