Помогити пж решить задачу Срочнноо !!!
Дана форма записи даты числами.Например 01.12.2010 Заменить цифру месяца на слово.Например 01 декабря 2010 года
Дана форма записи даты числами.Например 01.12.2010 Заменить цифру месяца на слово.Например 01 декабря 2010 года
Answers & Comments
var s: string;
begin
read(s);
write(copy(s, 1, 2));
case copy(s, 4, 2) of
'01': write(' января ');
'02': write(' февраля ');
'03': write(' марта ');
'04': write(' апреля ');
'05': write(' мая ');
'06': write(' июня ');
'07': write(' июля ');
'08': write(' августа ');
'09': write(' сентября ');
'10': write(' октября ');
'11': write(' ноября ');
'12': write(' декабря ');
end;
writeln(copy(s, 7, 4), ' года');
end.