CLS
INPUT "vvedite d"; d
INPUT "vvedite m"; m
d = d - 1
IF d = 0 THEN
m = m - 1
IF m = 0 THEN m = 12
IF (m AND 1) = 1 AND m <= 7 THEN d = 31 ELSE d = 30
IF (m AND 1) = 0 AND m >= 8 THEN d = 31 ELSE d = 30
IF m = 2 THEN d = 28
END IF
PRINT "d ="; d, "m ="; m
Тестирование выполнено в программе QB64 ( Скачать )
Похожие записи/страницы:
- Даны натуральные числа a, b, c, которые обозначают число, месяц и год. Определить день недели, на который падает…
- Даны числа Р и Н (Р
- Даны числа Р и Н (Р<Н). Суммировать вводимые числа, большие Н и отдельно суммировать числа меньшие Р.…
- Даны натуральные числа n,p, целые числа a1,a2...an. Получить произведение членов последовательности…
- Даны 2 числа. Найти поразрядное сложение цифр. т.е. необходимо сложить сотые одного числа и другого, затем…
- Даны несколько строк. Определить сколько раз в каждой строке встречается данный символ- QBasic(Бейсик)