PERFECT SQUARE OR NOT(FUNCTION)

DECLARE FUNCTION PERFECT (S)
CLS
INPUT "ENTER ANY NUMBER"; N
S = SQR(N)
P = PERFECT (S)
IF P = S THEN
PRINT "PERFECT SQUARE"
ELSE
PRINT "NOT PERFECT SQUARE"
END IF
END

FUNCTION PERFECT (S)
PERFECT = INT (S)
END FUNCTION

Comments

Popular posts from this blog

Father's day

Journey to jm

My Father