作业帮大大多的题目(PASCAL语言)1．给出一个自然数N（1
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/05 22:57:06
大大多的题目(PASCAL语言)1．给出一个自然数N（1
大大多的题目(PASCAL语言)
1．给出一个自然数N（1
大大多的题目(PASCAL语言)1．给出一个自然数N（1
1.
var n:longint;
a:array[1..1000]of longint;
procedure dg(x:longint);
var i,k,j,y,z:longint;
begin
k:=0;
for i:=x to x+(n-1) do begin
inc(k);
a[k]:=i;
end;
j:=(n+1)div 2;
for i:=1 to j do begin
y:=a[i]*a[i]+y;
end;
j:=(n-1)div 2;
for i:=j downto (n+1)div 2+1 do begin
z:=a[i]*a[i]+z;
end;
if z=y then for i:=1 to n do write(a[i],' ')else dg(x+1);
end;
begin
readln(n);
dg(1);
end.
如果楼主看得明思路就自己改一下吧
我还要做下面的题拿100分
第一题仍然是错的啊
2.
var a,b,c,d,e,f,g:longint;
begin
readln(a)
write(a,'=');
for b:=3 to a do
begin
e:=1;
if a mod b=0 then
begin
for g:=2 to round(sqrt(a)) do
if a mod g=0 then e:=0;
if (e=1)or(a=1) then begin write(b);exit;end;
e:=1;
for c:=2 to round(sqrt(b)) do
if b mod c=0 then e:=0;
if e=1 then begin write(b,'*');a:=a div b;end;
end;
end;
end.
建议你把问题分开，这样没人回答的！！！
太麻烦了，懒得做了。只给那道cantor表的代码（历年noip，我做过了）
var
n,he,i,j:longint;
begin
readln(n);
he:=1;
i:=1;
while he
inc(i);
inc(he,i);
end;
he:=he-i;
...
全部展开
太麻烦了，懒得做了。只给那道cantor表的代码（历年noip，我做过了）
var
n,he,i,j:longint;
begin
readln(n);
he:=1;
i:=1;
while he
inc(i);
inc(he,i);
end;
he:=he-i;
j:=n-he;
if i mod 2=1 then
j:=i-j+1;
writeln(j,'/',i-j+1);
end.
收起
你慢慢等吧 太BT了 我做不来（太多了，就算是100分，也懒得做了）