作业帮Free Pascal语言回答其平方等于某两个正整数平方之和的正整数称为弦数.例如,由于32+42=52,因此5为弦数.求[121,130]之间：（1）弦数数目；（2）最小的弦数；（3）最大的弦数.
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/06 20:15:29
![Free Pascal语言回答其平方等于某两个正整数平方之和的正整数称为弦数.例如,由于32+42=52,因此5为弦数.求[121,130]之间：（1）弦数数目；（2）最小的弦数；（3）最大的弦数.](/uploads/image/z/2413630-46-0.jpg?t=Free+Pascal%E8%AF%AD%E8%A8%80%E5%9B%9E%E7%AD%94%E5%85%B6%E5%B9%B3%E6%96%B9%E7%AD%89%E4%BA%8E%E6%9F%90%E4%B8%A4%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%E5%B9%B3%E6%96%B9%E4%B9%8B%E5%92%8C%E7%9A%84%E6%AD%A3%E6%95%B4%E6%95%B0%E7%A7%B0%E4%B8%BA%E5%BC%A6%E6%95%B0.%E4%BE%8B%E5%A6%82%2C%E7%94%B1%E4%BA%8E32%2B42%3D52%2C%E5%9B%A0%E6%AD%A45%E4%B8%BA%E5%BC%A6%E6%95%B0.%E6%B1%82%5B121%2C130%5D%E4%B9%8B%E9%97%B4%EF%BC%9A%EF%BC%881%EF%BC%89%E5%BC%A6%E6%95%B0%E6%95%B0%E7%9B%AE%EF%BC%9B%EF%BC%882%EF%BC%89%E6%9C%80%E5%B0%8F%E7%9A%84%E5%BC%A6%E6%95%B0%EF%BC%9B%EF%BC%883%EF%BC%89%E6%9C%80%E5%A4%A7%E7%9A%84%E5%BC%A6%E6%95%B0.)
Free Pascal语言回答其平方等于某两个正整数平方之和的正整数称为弦数.例如,由于32+42=52,因此5为弦数.求[121,130]之间：（1）弦数数目；（2）最小的弦数；（3）最大的弦数.
Free Pascal语言回答
其平方等于某两个正整数平方之和的正整数称为弦数.例如,由于32+42=52,因此5为弦数.求[121,130]之间：（1）弦数数目；（2）最小的弦数；（3）最大的弦数.
Free Pascal语言回答其平方等于某两个正整数平方之和的正整数称为弦数.例如,由于32+42=52,因此5为弦数.求[121,130]之间：（1）弦数数目；（2）最小的弦数；（3）最大的弦数.
var
a,b,i,j,top:longint;
s:array[1..100] of longint;
begin
a:=121;b:=130;
top:=0;
for i:=a to b do
for j:=1 to i-1 do
if frac(sqrt(sqr(i)-sqr(j)))=0 then
begin
inc(top);
s[top]:=i;
break;
end;
writeln(top,' ',s[1],' ',s[top]);
end.
//（1）：top （2）s[1] （3）s[top]
Free Pascal语言回答其平方等于某两个正整数平方之和的正整数称为弦数.例如,由于32+42=52,因此5为弦数.求[121,130]之间：（1）弦数数目；（2）最小的弦数；（3）最大的弦数.
找出数字之和等于6且能被5整除的所有两位数(用free pascal语言回答)
pascal语言编程问题（free pascal求1—N中的素数的个数.(1
free pascal常见语句
求几道 初学 free pascal
free pascal 黑洞6174
给出一个整数n,其中n小于等于1000.请求出1~n中所有的素数的个数free pascal 回答,
Pascal 也分 Turbo Pascal 和 Free Pascal 的 推荐的三种语言是 Free Pascal ,Lazarus ,dec-c++ 上面是从知道里复制来的.请问,Delphi7和里面说到的Turbo Pascal和Free Pascal可以说是什么关系呢?Free Pascal ,Lazarus ,dec-
如下图所示,请回答下列编程,PASCAL语言
Free Pascal语言.求10个数的最大值和最小值,我们循环语句的作业,帮看下,
free pascal语言.打印下列图形（共4个）.用循环.88888888881121123211234321#空空空空@#空空@@###@@@
[x]补码：10011000,其原码为 pascal语言,
free pascal怎样产生随机数
在free pascal如何判断两个数a,b,输出较大数的平方值
Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?
Free Pascal问题 任意输入一个四位数,输出的结果是其各个数位上的数字之和
用free pascal输入三角形三条边的值,能构成三角形,输出其面积后结束,不能输出no
free pascal 求最大公约数与最小公倍数