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

My school life in JM school.

MoonSoon Haiking