7 lines
127 B
Text
7 lines
127 B
Text
|
Array syl[10];
|
||
|
|
syl[1]:=2;
|
||
|
|
for i=2 to 10 do syl[i]:=1+Prod<n=1,i-1>[syl[n]] od;
|
||
|
|
!![syl];
|
||
|
|
srec:=Sigma<i=1,10>[1/syl[i]];
|
||
|
|
!!srec;
|