Pascal
Дана строка, представляющая из себя дату рождения в формате dd.mm.yy. Вывести день рождения в формате d mmmm. Например, 05.04.2001 → 5 апреля.
Как должен выглядить код?
Дана строка, представляющая из себя дату рождения в формате dd.mm.yy. Вывести день рождения в формате d mmmm. Например, 05.04.2001 → 5 апреля.
Как должен выглядить код?
More Questions From This User See All
Answers & Comments
mes: array[1..12] of string=('января','февраля','марта',
'апреля','мая','июня','июля','августа','сентября',
'октября','ноября','декабря');
begin
write('дата рождения в формате dd.mm.gg: ');
readln(dr);
d:=copy(dr,1,2);
m:=copy(dr,4,2);
writeln(StrToInt(d),' ',mes[StrToInt(m)]);
end.
дата рождения в формате dd.mm.gg : 05.08.2001
5 августа