程序a 1；
var i，n，a:longint；
s:真實；
開始
readln(n)；
a:= 1；
對於i:=1到n do
開始
s:= s+a *(1/I)；
a:=-a；
結束；
writeln(s:2:5)；
結束。
2.
函數gjdadd(x，y:STRING):STRING；
類型arr = ARRAY[1..整數的127]；
增值轉銷公司
a，b，s:arr；z，ZZ:STRING[126]；
I，lx，ly，l，k，t:整數；
開始
因為i:=1到127確實開始了
a[I]:= 0；b[I]:= 0；s[I]:= 0；
結束；
lx :=長度(x)；ly:= LENGTH(y)；
如果lx & gtly那麽l := lx否則l:= ly；
對於i:=1到lx DO VAL(COPY(x，lx + 1 - i，1)，a[i]，k)；
對於i:=1到ly DO VAL(COPY(y，ly + 1 - i，1)，b[i]，k)；
因為i:=1到l開始
s[i] := s[i] + a[i] + b[i]。
如果s[I]& gt；= 10然後開始
s[I+1]:= 1；s[I]:= s[I]MOD 10；
結束；
結束；
如果s[l + 1] = 0那麽t := l否則t:= l+1；
z:=“”；
因為i:=t向下到1開始
STR(s[i]，ZZ)；z:= z+ZZ；
結束；
gjdadd:= z；
結束；
增值轉銷公司
I:整數；
a、b、c:字符串；
開始
a:= ' 0 '；b:= ' 1 '；寫(a，' '，b，' ')；
因為i:=3到100確實開始了
c := gjdadd(a，b)；WRITELN(c，' ')；
a:= b；b:= c；
結束；
結束。
{項為100時，超出了qword的範圍，只能使用高精度。}
3.
程序exloop 1 _ 1；
定義變量
x，I:整數；
開始
x:= 1；
對於i := 2到10 do
x:=(x+1)* 2；
writeln('他們有'，x，'棗前');
readln
結束。
程序exloop 1 _ 2；
定義變量
x，I，temp:整數；
開始
x:= 1024；//根據問題的意思，原來日期的個數是確定的> = 2的10的次方，也就是1024。
而x & lt2048 do
開始
temp:= x；
for i := 1到9 do
temp:= temp div 2-1；
如果temp = 1，則中斷；
x:= x+2；
結束；
writeln('他們有'，x，'棗前');
readln
結束。
4.
變量a，b:數組[1..Longint的100]；
k，temp，I，j，n，t，l:longint；
函數check(I:Longint):Boolean；
varj:longint；
開始
check:= true；
對於j:=2到i-1 DO
如果i mod j = 0，則開始檢查:= false
退出；
結束；
結束；
開始
對於i:=2到100 Do
如果檢查(I ),那麽開始
Inc(t)；
a[t]:= I；
結束；
對於i:=2到100 Do
開始
n:= I；
l:= 0；
而n & lt& gt1 Do
開始
for j:=1 TO t Do
如果n mod a[j] = 0，則開始
Inc(l)；
b[l]:= a[j]；
n:= n Div a[j]；
結束；
結束；
對於j:=1到l-1 DO
對於k:=j + 1到l DOif b[j]& gt；b[k]然後開始temp:= b[j]；
b[j]:= b[k]；
b[k]:= temp；
結束；
寫(I，' = '，b[1])；
For j:=2 To l DO Write('* '，b[j])；
Writeln
結束；
結束。
5.
var i，j，sum:整數；
開始
對於i:=2到1000，請開始
sum:= 0；
for j:=1 to (i div 2) do
如果i mod j=0那麽inc(sum，j)；
如果sum=i，則寫ln(I)；
結束；
結束。
7.
程序T75 _ 026
增值轉銷公司
n:整數；
開始
重復
讀作(n)；
直到n & gt1;
重復
如果是奇數(n)
那麽開始吧
n:= 3 * n+1；
writeln(n)；
結束
否則開始
n:= trunc(n/2)；
writeln(n)；
結束
直到n = 1；
結束。