你好 第一题是用数学方法做:var a:array[1..500] of longint;i,n,k:integer;begin a[1]:=1;a[2]:=2;for i:=3 to 9 do a[i]:=i-1;readln(n);if n<=9 then begin print a[n];halt; end;else begin k:=9;while k<>n do begin k:=k+1;a[k]:=k div 2+1+a[k...