WAP to check the given number is armstrong or not

#Write a Qbasic Program to check either given number is armstrong or not?

Solution:

CLS
INPUT “ENTER A NUMBER”; N
S = N
WHILE N <> 0
A = N MOD 10
R = R + A ^ 3
N = FIX(Na / 10)
WEND
IF S = R THEN
PRINT “THE GIVEN NUMBER IS ARMSTRONG”
ELSE
PRINT “IT IS NOT ARMSTRONG”
END IF
END

 You can also see on videos

भिडियाे साभार ः टेक्निकल स्कूल च्यानल id=SSICEpCGsAY