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

disel
1
2
3
4
5
6
7
8
9
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