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

INPUT "day: ", d
INPUT "month: ", m
INPUT "year: ", y
a = (14 - m) \ 12
y = y - a
m = m + 12 * a - 2
n = (7000 + (d + y + y \ 4 - y \ 100 + y \ 400 + ((31 * m) \ 12))) MOD 7
IF n = 0 THEN n = 7
PRINT n

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment