Question

Составить программу на Q-Basic для вычисления квадратов натурального ряда чисел от 1 до 15.

Answer 1

DIM B AS INTEGER, S AS INTEGER
FOR B = 1 TO 15     
   S = B ^ 2
   PRINT S
NEXT B

Answer 2

CLS
FOR I = 1 TO 15    
   PRINT I ^ 2;
NEXT