find leap year in qbasic

find leap year in qbasic

नमस्कार दोस्तों 

आज हम QBasic में Leap ईयर को कैसे पता करे इसका प्रोग्राम बनाते हैं। 

तो सबसे पहले आप Qbasic Program स्टार्ट करके यह प्रोग्रमम कोड टाइप करे। 

DIM X, Y, Z, YEAR
INPUT "PLEASE INPUT YEAR"; YEAR
X = YEAR MOD 4
Y = YEAR MOD 100
Z = YEAR MOD 400
IF ((X = 0 AND NOT (Y = 0)) OR Z = 0) THEN
PRINT "THIS IS A LEAP YEAR"; YEAR
ELSE
PRINT "THIS IS NOT LEAP YEAR"; YEAR
END IF
END

Qbasic के अन्य program लिए कमेंट बॉक्स में लिखें।

पीडीऍफ़ में डाउनलोड करेने के लिए क्लिक करें। 

Convert Second to Time Program