Войти
Регистрация
Спроси ai-bota
Діана25123456789000
14.03.2021 07:36
Паскаль авс.net составить программу с записью дата. программа должна обеспечивать простейшие функции для работы с данными : увеличение/уменьшение на 1 день, ввод значений , вывод значений. .
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
efremchina99
27.05.2021 19:38
Скласти програмний код, який можна використати в середовищі Lazarus, щоб зі слова рекомендація отримати слово оцінка...
aidar2002032
02.01.2021 14:41
Решить. укажите наименьшее кол-во байтов, которое необходимо для кодирования 300 различных значений....
sasararerap08tbk
18.02.2023 22:17
Получение параметров ямы и количество кубометров воды. проверка, получится уместить данное количество воды в этом бассейне. выдача сообщения о результате. программа на языке...
Sasha190507
11.08.2022 21:32
Что такое переменная в програмировании...
ЛесяКисс
22.11.2021 23:05
Что может привести к интернет-зависимости...
homusik
26.01.2021 12:24
1) Объем сообщения составляет 128 Мб, а объем диска 4 Гб. Сколько места останется на диске после записи на него сообщения. ответ запишите следующим образом: __Мб=__Гб (пробелы...
anastasiya2905
26.05.2022 21:39
(задания будут зачтены только с подробным решением). 1) 111001102 ? 10 2) 11010100102 ? 10 3) 1111012 ? 10 4) 2368 ? 10 5) 40058 ? 10 6) 12038 ? 10 7) 10С16 ? 10 8) ВАЕ16 ?...
artikiv2006
04.12.2022 19:46
12. Составное высказывание записать в форме логического выражения и построить таблицу истинности: (2*2 = 5 или 3*3 = 9) и (2*2 ≠ 5 или 3*3 ≠ 9) и (4*4 = 16 и 5*5 = 20) или...
lesbekdauren1
17.11.2020 09:33
1.Какое значение будет присвоено переменной х в результате выполнения следующей программы? x = str((19 // 7 % 3) ** 20)[2:5] 4. В программе используется одномерный целочисленный...
vdhfhsbh
01.07.2020 13:27
6. На вход программы поступает натуральное число N, не превышающее 109. Требуется найти и вывести наибольшую чётную цифру в десятичной записи этого числа или вывести «NO»,...
Ответ:
lokys01twin
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота