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

disel
1
2
3
4
5
6
7
8
9
INPUT "day ", d
INPUT "month ", m
INPUT "year ", y
IF m <= 2 THEN
y = y - 1
d = d + 3
END IF
t = 1 + (d + y + y \ 4 - y \ 100 + y \ 400 + (31 * m + 10) \ 12) MOD 7
PRINT t

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

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

Leave a Comment