с клавиатуры вводятся две даты. выдать извещения "верно",если 1-ая введённая дата

С клавиатуры вводятся две даты. выдать извещения "верно",если первая введённая дата предшествует второй, и "неправильно", если напротив.

Задать свой вопрос
1 ответ
Var d1,m1,y1,d2,m2,y2:integer;
begin
write('1-я дата: ');
readln(d1,m1,y1);
write('2-я дата: ');
readln(d2,m2,y2);
if (y1lt;y2)or(y1=y2)and(m1lt;m2)or(y1=y2)and(m1=m2)and(d1lt;d2)
  then writeln('верно')
  else writeln('ошибочно');
end.

Пример:
1-я дата: 12 2 2017
2-я дата: 4 3 2017
верно
Борис Бахер
как выполнение запустить
Лариса
В хоть какой версии паскаля.
Биланич Руслан
да
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт