Предмет: Информатика, автор: johnbazargan

Проверить корректность введенной даты (день, месяц, год) - Pascal ABC

Ответы

Автор ответа: Аноним
0
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (d,m,y):=ReadInteger3('Введите через пробел день, месяц, год:');
  try
    var dt:=(new System.DateTime(y,m,d)).ToShortDateString;
    Writeln('Принята дата ',dt);
  except
    Writeln('Некорректная дата')
  end
end.

Примеры
Введите через пробел день, месяц, год: 8 10 2017
Принята дата 08.10.2017

Введите через пробел день, месяц, год: 29 2 2017
Некорректная дата
Похожие вопросы
Предмет: История, автор: paltsevam
Предмет: История, автор: Аноним
Предмет: Биология, автор: pantuschin2016