Работы полностью)) / Практика / 4.113(А) / Отчет
.docxОтчет по работе №4.113(А)
Задание
Код работы:
CLS
COLOR 10.7
INPUT "Den=", n
INPUT "Mesyac=", m
n = n + 1
IF m = 1 THEN
IF n > 31 THEN
n = n - 31
PRINT n; "Fevralya"
ELSE
PRINT n; "Yanvarya"
END IF
END IF
IF m = 2 THEN
IF n > 28 THEN
n = n - 28
PRINT n; "Marta"
ELSE
PRINT n; "Fevralya"
END IF
END IF
IF m = 3 THEN
IF n > 31 THEN
n = n - 31
PRINT n; "Aprelya"
ELSE
PRINT n; "Marta"
END IF
END IF
IF m = 4 THEN
IF n > 30 THEN
n = n - 30
PRINT n; "Maya"
ELSE
PRINT n; "Aprelya"
END IF
END IF
IF m = 5 THEN
IF n > 31 THEN
n = n - 31
PRINT n; "Iunya"
ELSE
PRINT n; "Maya"
END IF
END IF
IF m = 6 THEN
IF n > 30 THEN
n = n - 30
PRINT n; "Iulya"
ELSE
PRINT n; "Iunya"
END IF
END IF
IF m = 7 THEN
IF n > 31 THEN
n = n - 31
PRINT n; "Avgusta"
ELSE
PRINT n; "Iulya"
END IF
END IF
IF m = 8 THEN
IF n > 31 THEN
n = n - 31
PRINT n; "Sentyabrya"
ELSE
PRINT n; "Avgusta"
END IF
END IF
IF m = 9 THEN
IF n > 30 THEN
n = n - 30
PRINT n; "Oktyabrya"
ELSE
PRINT n; "Sentyabrya"
END IF
END IF
IF m = 10 THEN
IF n > 31 THEN
n = n - 31
PRINT n; "Noyabrya"
ELSE
PRINT n; "Oktyabrya"
END IF
END IF
IF m = 11 THEN
IF n > 30 THEN
n = n - 30
PRINT n; "Dekabrya"
ELSE
PRINT n; "Noyabrya"
END IF
END IF
IF m = 12 THEN
IF n > 31 THEN
n = n - 31
PRINT n; "Yanvarya"
ELSE
PRINT n; "Dekabrya"
END IF
END IF
Скриншот программы с ответом: