Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
domaris246
14.02.2022 03:24 •
Информатика
Склавиатуры вводятся две даты. выдать сообщения "правильно",если первая введённая дата предшествует второй, и "неправильно", если наоборот.
Показать ответ
Ответ:
ПолинаТ1
05.10.2020 17:27
Var d1,m1,y1,d2,m2,y2:integer;
begin
write('1-я дата: ');
readln(d1,m1,y1);
write('2-я дата: ');
readln(d2,m2,y2);
if (y1<y2)or(y1=y2)and(m1<m2)or(y1=y2)and(m1=m2)and(d1<d2)
then writeln('правильно')
else writeln('неправильно');
end.
Пример:
1-я дата: 12 2 2017
2-я дата: 4 3 2017
правильно
0,0
(0 оценок)
Популярные вопросы: Информатика
1804lenalb
12.05.2022 03:10
Напишите для Робота алгоритм, закрашивающий все клетки (см. рисунок)...
KsunyaCernecova
14.12.2020 13:01
ЛЮД с информатикой очень 1. Вычислить сумму ряда S = 1+1.5+2+2.5+3+3.5+...+ 30 (Цикл с параметром for) 2.Найти 1 ! (Цикл с предусловием While условие do оператор )...
svetlanasen12
02.06.2022 17:52
Напиши программу из блокнота Джека. Она читает две строчки и, если они умещаются в 10 символов, объединяет их в одну, а если нет, выводит строку “слишком длинно”....
Goliafos
26.12.2020 03:22
После выполнения алгоритма робот нарисовал узор и оказался в клетке b3. алг узор начвлево; закрасить; вправо вправо; закрасить; влево вниз; закрасить; вверх кон в какой...
bebe13
12.10.2020 13:26
Вопросы к зачету по теме: «текстовый редактор word». 1. зачем нужны текстовые редакторы? 2. что является основными объектами документа? 3. что такое редактирование...
asdas6vj
24.05.2021 17:03
Результатом вычислений в ячейке C1 табличного процессора Microsoft Excel будет число: A | B | C | 5 | =A1+3 | =A1+B1 |...
НАСТЯ7539
04.11.2021 17:39
1)В чем состоит различие между лицензионными, условно-бесплатными и бесплатными программами? 2) Как можно зафиксировать свое авторское право на программный продукт?...
kamillaakhmetz
21.02.2022 18:47
? придумать кроссворд ( например: про монитор, калькулятор, и т.д.)...
алиночка206
10.04.2020 02:44
то что на картинке и то что внизу каков результат работы алгоритма? запишите выражение которое вычисляет этот алгоритм при1) a=72) a=100заполните блок-схему этого алгоритма...
sonicbum
24.11.2022 08:45
Размножить на множители 12 x во 2 степени + 6y=2x во 2 степени×y-y во второй степени Размножить (6a-4b) во второй степени= Выполнить умножение (3+x)×(3-x)×(9+x во 2...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('1-я дата: ');
readln(d1,m1,y1);
write('2-я дата: ');
readln(d2,m2,y2);
if (y1<y2)or(y1=y2)and(m1<m2)or(y1=y2)and(m1=m2)and(d1<d2)
then writeln('правильно')
else writeln('неправильно');
end.
Пример:
1-я дата: 12 2 2017
2-я дата: 4 3 2017
правильно