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

Question

Информатика

Леонина

9 июня, 14:01

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

+2

Ответы (1)

Знаете ответ?

Венюся · Answer 1

Var d1, m1, y1, d2, m2, y2:integer;

begin

write ('1-я дата: ') ;

readln (d1, m1, y1) ;

write ('2-я дата: ') ;

readln (d2, m2, y2) ;

if (y1
then writeln ('правильно')

else writeln ('неправильно') ;

end.

Пример:

1-я дата: 12 2 2017

2-я дата: 4 3 2017

правильно