Qbasic Master

WAP to Print the following Numeric Series... 1.    1  4  9  16  25 ...... 100 CLS For I = 1 to 10 Print I^2; Next I END 2. 1  2  4  7  11 ..... 10th Term CLS a = 1 b = 1 FOR I = 1 to 10 Print a; a = a + b b = b + 1 Next I END 3.  100  95  90  85  ...... 50 CLS FOR I = 100 to 50 step -5 Print I; Next I  END 4.   3  33   333   3333 33333 CLS a = 3 For I = 1 to 5 Print a; a = (a * 10 ) + 3 Next I  END 5.  1  1  2  3  5  8  ....... 10th term  CLS a = 1  b = 1 FOR I = 1 to 5 Print a; Print b; a = a + b b = a + b Next I END

Cls A = 10 For I = 1 To 10 Step 2     B = I / A     Print B;     A = A * 10 Next I End