Ответы на вопрос:
Uses system; var d1: datetime; day,mounth,year: integer; begin d1 : = datetime.now; writeln('today: ',d1.day, '.', d1.month, '.', d1.year); writeln('day: '); readln(day); writeln('mounth: '); readln(mounth); writeln('year: '); readln(year); d1: =d1.adddays(-day); d1: =d1.addmonths(-mounth); d1: =d1.addyears(-year); writeln(d1.day,'.',d1.month,'.',d1.year); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
sonif120602.08.2021 16:42
-
777alisham04.05.2023 05:58
-
kamilaiks46619.05.2022 20:08
-
Ника1204000020.01.2023 18:13
-
Pozitivchik123421.09.2020 23:29
-
kill202127.12.2022 23:15
-
danil1337Elit29.09.2020 20:50
-
rud500105.03.2023 00:30
-
dodpddpfp27.09.2021 08:21
-
vanikkuz20.03.2023 08:14
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.