Помогити пж решить задачу Срочнноо !!!
Дана форма записи даты числами.Например 01.12.2010 Заменить цифру месяца на слово.Например 01 декабря 2010 года
Программа на паскале:
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.
Оцени ответ