1 2 3 4 5 6 7 | INPUT "year=", yearIF (year MOD 4 = 0 AND year MOD 100 <> 0) OR year MOD 400 = 0 THEN PRINT "visokosniy"ELSE PRINT "ne visokosniy"END IFPRINT "BEK: ", year / 100 + 1 |
Тестирование выполнено в программе QB64 ( Скачать )