请问这个程序怎么编 ”1 1 2 3 5 8．．．．”当i=12时s=??

你用的什么语言啊
i,s分别是什么啊？
是不是问该数列的第十二项是多少？
随便吧

a[1]:=1;
a[2]:=1;
for i:=3 to n do a[i]:=a[i-1]+a[i-2];
write(a[12]);

Dim Temp=0,Max=12,Num1=0,Num2=1;
For i=1 to 12
Temp=Num2,Num2=Num1+Num2,Num1=Temp,S=Num2;
End For