begin
var s := ReadlnString;
var d: DateTime;
if DateTime.TryParse(s, d) then $'{(d.AddDays(-1).Date):dd.MM.yy}'.Println
else Println('Неверная дата')
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var s := ReadlnString;
var d: DateTime;
if DateTime.TryParse(s, d) then $'{(d.AddDays(-1).Date):dd.MM.yy}'.Println
else Println('Неверная дата')
end.
1.3.18
28.02.18