//Pascal ABC.NET 3.1 сборка 1256
Var
ars:array[1..12] of string:=('января','февраля','марта','апреля','мая','июня','июля','августа','сентября','октября','ноября','декабря');
s:string;
begin
read(s);
if s[1]='0' then delete(s,1,1);
write(copy(s,1,pos('.',s)-1),' ');
delete(s,1,pos('.',s));
write(ars[strtoint(copy(s,1,pos('.',s)-1))],' ');
delete(s,1,pos('.',s));
write(s,' года');
end.
Пример ввода:
15.10.2012
Пример вывода:
15 октября 2012 года
Во вложении - рабочая книга MS Excel 2003
Office набери в плей маркете , открытие документов
33 +10 =43 различных символов для номера
2^6 >≈ 43 ---> 6 бит для кодировки одного символа
6 * 6 =36 бит для кодировки одного номера =36 : 8 = [6 байт]
В условии нет концовки, должен быть вопрос: сколько памяти занимает n-е количество номеров
6 * n = ........байт
Ответ:
Ответ: 2+3+1=6
6>1 ( 6 больше 1 )
Объяснение: d1 = 1+1; d2 = 2+1; dn = 1;