作业帮 > 综合 > 作业

pascal 勾股定理 要求定义一个布尔函数判断一组正整数是否为勾股数.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/20 15:49:14
pascal 勾股定理 要求定义一个布尔函数判断一组正整数是否为勾股数.
【问题描述】
请找出K以内的勾股数,即凡满足a²+b²=c²的正整数对(a,b,c)均称一组勾股数).要求定义一个布尔函数判断一组正整数是否为勾股数.
【输入文件】(find.in)
1行,1个正整数,表示K(10
var
i,j,k,n:longint;
begin
readln(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.