// 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 Некорректная дата
// Внимание! Если программа не работает, обновите версию!
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
Некорректная дата