作业帮pascal高端数问题高端数素数是只能被1和本身整除的自然数,1不是素数,如果一个素数能够写成两个正整数平方和的形式,那我们称这个数为高端数.你的任务是对于给定的a和b(a
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/26 00:59:59
pascal高端数问题高端数素数是只能被1和本身整除的自然数,1不是素数,如果一个素数能够写成两个正整数平方和的形式,那我们称这个数为高端数.你的任务是对于给定的a和b(a
pascal高端数问题
高端数
素数是只能被1和本身整除的自然数,1不是素数,如果一个素数能够写成两个正整数平方和的形式,那我们称这个数为高端数.你的任务是对于给定的a和b(a
pascal高端数问题高端数素数是只能被1和本身整除的自然数,1不是素数,如果一个素数能够写成两个正整数平方和的形式,那我们称这个数为高端数.你的任务是对于给定的a和b(a
var n,a,b,i,i1,i2:integer;
begin
readln(a,b);
for i:=a to b do
begin
i2:=1;
for i1:=2 to trunc(sqrt(i)) do
if i mod i1=0 then begin i2:=0; break end;
if i2=0 then continue;
for i1:=1 to trunc(sqrt(i div 2)) do
begin
i2:=trunc(sqrt(i-i1*i1));
if i-i1*i1-i2*i2=0 then
begin inc(n); writeln(i,'=',i1,'*',i1,'+',i2,'*',i2) end;
end;
end;
writeln('n=',n);
end.
var n,m,c,i,j,x,s:integer;
begin
readln(n,m,c);
for i:=1 to n do
for j:=1 to m do
begin
read(x);
if x=c then inc(s);
end;
writeln(s)
end.