Задача по программированию

задача по программированию
Задача. Развлечения гномов
(Время: 1 сек. Память: 16 Мб Баллы: 100)
Гномы свободно владеют системами счисления с разными основаниями и достигли они этого ежедневными тренировками. Именно поэтому каждое утро у гномов начинается с того, что они текущую календарную дату переводят в другую систему счисления. Ваше задание такое же: перевести заданную дату D/M/Y в систему счисления с основанием D+1.

Для обозначения цифр больших 9 используются большие латинские буквы в алфавитном порядке.

Входные данные

Входной файл INPUT.TXT содержит строку, содержащую дату в формате D/M/Y в десятичной системе счисления (1 ≤ D ≤ 31, 1 ≤ M ≤ 12, 0 ≤ Y ≤ 9999).

Выходные данные

В выходной файл OUTPUT.TXT выведите одну строку – дату в формате D/M/Y в системе счисления с основанием D+1.

  • Какой язык? Выбирай :)
  • Файлы сам прикрутишь, не помню как на паскале делается, а гуглить - лень xD
    var
    d, m, y : integer;
    str : string;
    function ChngRad(int, rad : integer) : string;
    var
    tmp, j : integer;
    buf : string;
    c : char;
    begin
    buf := '';
    while(int <> 0) do
    begin
    tmp := int mod rad;
    int := int div rad;
    if(tmp < = 9)
    then
    c := char(ord('0') + tmp)
    else
    c := char(ord('A') + tmp - 10);
    buf := buf + c;
    end;
    result := '';
    for j := length(buf) downto 1 do
    result := result + buf[j];
    end;
    begin
    read(d);
    read(m);
    read(y);
    str := ChngRad(d, d+1);
    str := str + ' ' + ChngRad(m, d+1);
    str := str + ' ' + ChngRad(y, d+1);
    writeln(str);
    readln;
    readln;
    end.