Предмет: Информатика,
автор: 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
Некорректная дата
// Внимание! Если программа не работает, обновите версию!
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
Предмет: История,
автор: Аноним
Предмет: Английский язык,
автор: alisagladyseva6
Предмет: Биология,
автор: violaantonyuk
Предмет: Биология,
автор: pantuschin2016