1.
CLS
INPUT n
sum=0
FOR i=1 to n
sum=sum+(i+1)/(i+2);
NEXT i
PRINT sum
2.
CLS
SCREEN 7;
X1=100;X2=50;X3=150;
Y1=200;Y2=300;
FOR i = 1 TO 5
LINE(X1, Y1)-(X2, Y2);
LINE(X2, Y2)-(X3, Y2);
LINE(X3, Y2)-(X1, Y1);
X1=X1+150; X2=X2+150;X3=X3+150;
NEXT i;
END