To Display Reverse of Digits
CLS
INPUT "Enter any number"; N
S = 0
WHILE N <> 0
R = N MOD 10
S = S * 10 + R
N = N \ 10
WEND
PRINT "Reverse of digits="; S
END
To Find Area of Circle
CLS INPUT "Enter radius"; r A = 22 / 7 * r ^ 2 PRINT "Area of circle="; A END
Comments
Post a Comment