Unicode и uri это правельный ответ
//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
Пример вывода:
<span>15 октября 2012 года</span>
Т.к. нам сказано, что Dat[k] ><span>=</span> d, то нам нужно найти наибольшее значение Dat[k] но т.к. там несколько одинаковых наиб. и n := k, то записать нужно номер последнего наиб. Dat.
Ответ: 9
1 #include <cstdio>
2
3 int
4 main(void)
5 {
6 int n = 0;
7 scanf("%d", &n);
8 for (int i = 0, even_num = 2; i < n; i++, even_num += 2) {
9 printf("%d ", even_num);
10 }
11 return 0;
12 }