Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
mrdaaly
27.01.2023 23:00 •
Информатика
Паскаль авс.net составить программу с записью дата. программа должна обеспечивать простейшие функции для работы с данными : увеличение/уменьшение на 1 день, ввод значений , вывод значений. .
Показать ответ
Ответ:
Lord222435
13.07.2020 07:48
Uses
System;
var
d1, d2: DateTime;
s: string;
begin
Write('Введите дату в формате ДД.ММ.ГГГГ: ');
Readln(s);
d1 := DateTime.Parse(s); { получили дату }
d2 := d1.AddDays(-1);
Writeln('Предыдущий день: ', d2.Day, '.', d2.Month, '.', d2.Year);
d2 := d1.AddDays(1);
Writeln('Следующий день: ', d2.Day, '.', d2.Month, '.', d2.Year);
end.
Тестовое решение:
Введите дату в формате ДД.ММ.ГГГГ: 31.12.2014
Предыдущий день: 30.12.2014
Следующий день: 1.1.2015
0,0
(0 оценок)
Популярные вопросы: Информатика
АНТО14
02.03.2021 10:03
Коротко своїми словами описати історію виникнення інтернету...
avrorasergeev
02.03.2021 10:03
Распилили несколько брёвен.сделали 9 распилов и получили 17 чурбаков.сколько брёвен было распилено?...
Slysly
16.04.2022 12:24
Водной из кодировок unicode каждый символ кодируется 16 битами.семь раз отмерь, один раз отреж!...
Aleks0528
13.05.2022 12:35
Запишите число, которое будет выведено в результате работы программы: var s, n: integer; begin s := 0; n := 1; while s*s = 125 do begin s := s + 3; n := n * 2 end; writeln(n)...
НаТаШаЯЯЯ
05.08.2022 04:34
Сколько натуральных чисел расположено в интервале 758 ≤ x ≤ AE16...
hilka2
05.07.2020 20:35
Число 78123 может существовать в системе счисления с основанием – укажите минимальное основание....
086Alex
05.07.2020 20:35
Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n := 2; s := 35; while n = 25 do begin s := s + 20; n := n...
Luuunar
03.01.2021 01:30
Гиперссылки. Урок 1 Определи истинность утверждения: указателем гиперссылки может быть графический файл. Выбери верный вариант ответа: Истина Ложь...
KYRT2
15.06.2021 11:19
Презентации. Урок 1 Верно ли утверждение, что дляодной презентации можно выбратьдве темы дизайна? С Проверить...
pashamironov20
03.07.2022 23:54
если не знаете то не отвечайте Определи истинность утверждения: указателем гиперссылки может быть графический файл.Выбери верный вариант ответа:истина или ложь ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
System;
var
d1, d2: DateTime;
s: string;
begin
Write('Введите дату в формате ДД.ММ.ГГГГ: ');
Readln(s);
d1 := DateTime.Parse(s); { получили дату }
d2 := d1.AddDays(-1);
Writeln('Предыдущий день: ', d2.Day, '.', d2.Month, '.', d2.Year);
d2 := d1.AddDays(1);
Writeln('Следующий день: ', d2.Day, '.', d2.Month, '.', d2.Year);
end.
Тестовое решение:
Введите дату в формате ДД.ММ.ГГГГ: 31.12.2014
Предыдущий день: 30.12.2014
Следующий день: 1.1.2015