Задачу нужно решить ** QBASIK Найти сумму а=2,6,10... до тех пор пока она не превысит 500

Question

Задачу нужно решить на QBASIK


Найти сумму а=2,6,10...
до тех пор пока она не превысит 500

Answer 1

CLS

N = 500

k = 4

X = 2

S = 0

DO WHILE S < N

S = S + X

PRINT X, S

X = X + k

LOOP