1、program test4;
var i:integer;
a:array[1..10] of char;
procedure try(t:integer);
begin
if t=10 then write(a[t])
else
begin
try(t+1);write(a[t]);
end;
end;
begin
for i:=1 to 10 do read(a[i]);
try(1);
end.
输入：123459876a
输出：
2、var i,j,k,n:integer;
a:array[1..100,1..100] of integer; begin
readln(n); k:=1;
i:=1;j:=1;a[i,j]:=1; while k<n do
begin
if (i=1) and (j mod 2=1) then inc(j) else if (j=1) and (i mod 2=0) then inc(i)
else if (i+j) mod 2=0 then begin dec(i);inc(j);end
else if (i+j) mod 2=1 then begin inc(i);dec(j);end;
inc(k);a[i,j]:=k; end;
writeln(i,*/*,j); end. 输入：1999 输出：
第一题答案是多少？第二题怎么做，谢谢

快来人啊，江湖救急～

自己想想

阅读程序先看主程序然后列表

十五字十五字十五字十五字十五字

第一题运行结果是“a678954321”，第二题运行结果是“18/46”。
附注：其实您可以自己打开Free Pascal运行。