72. Qbasic program to display all Armstrong numbers from 1 to 500.

72.      Write a sub program to display all Armstrong numbers from 1 to 500.

DECLARE SUB ARM ( )

CLS

CALL ARM

END

SUB ARM

N = 1

FOR I = 1 TO 500

A = N

S = 0

WHILE A <> 0

R = A MOD 10

S = S + R ^ 3

A = A \ 10

WEND

IF N = S THEN PRINT N,

N = N + 1

NEXT I

END SUB