const
num = 5;
var
n: integer;
function r(n : integer) : integer;
var
i : integer;
begin
if n <= num then
begin
r :=
n;
exit;
end;
for i :=1 to num do
if
r(n-i) < 0 then
begin
r:=i;
exit;
end;
r:=-1;
end;
begin
readln(n);
writeln(r(n));
end.
(1)
输入:7
输出：__________(4分)
(2)
输入 16
输出：__________(4分)I

。。。。。。。

回复 EXPsta :program chu7_3;
Var n,m,i:integer;function rSum(j:integer):integer;
var sum:integer;
begin sum:=0;
while j<>0 do
begin
sum:=sum*10+(j mod 10);
j:=j div 10;
end;
rSum:=sum;end;
begin
readln(n,m);
for i:=n to m do
if i=rSum(i)
then write(i, ' ');
readln;
end.
这题先吧，那题会了I

输入90 120求输出和算法大意

99,101,111
就是求这个区间（90-120），所有数x，从左往右和从右往左读出的数相同，叫回文数吧

1.（哥德巴赫猜想）哥德巴赫猜想是指，任一大于2的偶数都可写成两个质数的和。迄今为止，这仍然是一个著名的世界难题，被誉为数学王冠上的明珠。试编写程序，验证任一大于2且不超过n的偶数都能写成两个质数之和。
const
size=1000;
var
n,r,I,j,k,ans:integer;
p：array[1..size] of integer;
tmp:Boolean;
begin
readln(n);
r:=1;
p[1]:=2;
for i:=3 to n do
begin
= 1 \* GB3 ①
；
for j:=1 to r do
if I mod = 2 \* GB3 ② =0
then
begin
tmp:=false;
break;
end;
if tmp then
begin
inc(r);
= 3 \* GB3 ③ ;
end;
end;
ans:=0;
for i:=2 to (n div 2) do
begin
tmp:=false;
for j:=1 to r do
for k:=j to r do
if i+i= = 4 \* GB3 ④
then
begin
tmp:=true;
break;
end;
if tmp then
inc(ans);
end;
writeln(ans);
end.
若输入n为2010，则输出 = 5 \* GB3 ⑤
时表示验证成功，即大于2且不超过2010的偶数都满足哥德巴赫猜想。
求解，求思路I

空行去掉，带圈的数字前乱七八糟的东西也去掉