pascal 勾股定理 要求定义一个布尔函数判断一组正整数是否为勾股数.【问题描述】 请找出K以内的勾股数,即凡满足a²+b²=c²的正整数对(a,b,c)均称一组勾股数).要求定义一个布尔

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 19:13:21
pascal 勾股定理 要求定义一个布尔函数判断一组正整数是否为勾股数.【问题描述】 请找出K以内的勾股数,即凡满足a²+b²=c²的正整数对(a,b,c)均称一组勾股数).要求定义一个布尔

pascal 勾股定理 要求定义一个布尔函数判断一组正整数是否为勾股数.【问题描述】 请找出K以内的勾股数,即凡满足a²+b²=c²的正整数对(a,b,c)均称一组勾股数).要求定义一个布尔
pascal 勾股定理 要求定义一个布尔函数判断一组正整数是否为勾股数.
【问题描述】
请找出K以内的勾股数,即凡满足a²+b²=c²的正整数对(a,b,c)均称一组勾股数).要求定义一个布尔函数判断一组正整数是否为勾股数.
【输入文件】(find.in)
1行,1个正整数,表示K(10

pascal 勾股定理 要求定义一个布尔函数判断一组正整数是否为勾股数.【问题描述】 请找出K以内的勾股数,即凡满足a²+b²=c²的正整数对(a,b,c)均称一组勾股数).要求定义一个布尔
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.