Определить будет ли этот год високосным и к какому веку он относится — Basic(Бейсик)

disel
1
2
3
4
5
6
7
INPUT "year=",year
IF (year MOD 4 = 0 AND year MOD 100 <> 0) OR year MOD 400 = 0 THEN
PRINT "високосный"
ELSE
PRINT "не високосный"
END IF
PRINT "BEK: ", year \ 100+1

Похожие записи/страницы:

Leave a Comment