Конвертация

[surf135]

Напишите процедуру convert (преобразовать),получающую один параметр data(дата) типа string.содержащий значение календарной даты в формате мм.дд.гг.
Например:
14 декабря 1960 года.будет изображено как 12/14/02.Задача процедуры convert состоит в преобразовании полученного значения к форме 'Месяц день, год'.Так, результатом преобразования только что приведенной даты должно стать 'Декабрь 14,2002'(предлагается,что все даты относятся к XXI веку).

[Serge_Bliznykov]

14 декабря 1960 года

изображено как 12/14/02

результатом преобразования только что приведенной даты должно стать 'Декабрь 14,2002'

с 1960 годом промашка вышла..

На каком языке программирования пишете?

А так, вообще, ничего сложного - разбирайте строку
по элементам, по разделителю /... (кстати, неплохо бы на валидность проверять сразу).
Название месяца удобно брать из массива.
Например, из такого:

const
  MonthName : array[1..12] of string[8] =
('Январь','Февраль','Март','Апрель','Май','Июнь','Июль',
'Август','Сентябрь','Октябрь','Ноябрь','Декабрь');

[surf135]

На Языке Паскаль

[Serge_Bliznykov]

без особо точных проверок, примерно так:

procedure Convert( s : string; var sResult : string );
const
  MonthName : array[1..12] of string[8] =
('Январь','Февраль','Март','Апрель','Май','Июнь','Июль',
'Август','Сентябрь','Октябрь','Ноябрь','Декабрь');
var
  iMesac, k : integer;
begin
  Val(Copy(s,1,Pos('/',s)-1), iMesac, k);
  if k<>0 then begin
     sResult := 'Ошибка в задании месяца!';
     exit;
  end;
  Delete(s, 1, Pos('/',s));
  k:= Pos('/',s);
  if k=0 then begin
     sResult := 'Ошибка в задании дня/года!';
     exit;
  end;
  sResult := MonthName[iMesac] + ' ' 
          + Copy(s,1,k-1)+',20'+Copy(s, k+1, length(s)-k);
end;