Enddo ?s 5 Input to r S=3.14*r*r ?s 6 S=0 T=1 I=1
DO WHILE I<=10 T=T*I S=S+T+1+I I=I+1 ENDDO ?S 4 y=0
t=1 i=1
do while i<=10 t=t*i
y=y+(i+t*(i+1))/((1+i)*(2+i)) i=i+1 endo ?y
7 S=0 I=1
Do while i<=100 If i/2=int(i/2) S=s+i Endif I=i+1 Enddo ?s 8
Input to x
If x>=0
Y=4*x*x+4*x+1 Else
Y=4*x*x-4*x-1 Endif ?y 9 S=0 I=1
Do while i<=100 If i/3=int(i/3) S=s+i Endif I=+1 Enddo ?s