WAP to test ehrther a number is completely divisible by 13 or not
CLS
INPUT"ENTER ANY NUMBER";A
IF A MOD 13 = 0 THEN
PRINT"THE NUMBER IS COMPLETELY DIVISIBLE BY 13"
ELSE
PRINT"THE NUMBER IS NOT COMPLETELY DIVISIBLE BY 13"
END IF
END
INPUT"ENTER ANY NUMBER";A
IF A MOD 13 = 0 THEN
PRINT"THE NUMBER IS COMPLETELY DIVISIBLE BY 13"
ELSE
PRINT"THE NUMBER IS NOT COMPLETELY DIVISIBLE BY 13"
END IF
END
Comments
Post a Comment