Предлгаю свой вариант. Писался на C#
private string convert(int num) {
string romanNumber = "";
int[] tmp = new []{
num /1000,
(num / 100) % 10 - 5 > 0? 1:0, ((num / 100) % 10) % 5,
(num / 10) % 10 - 5 > 0? 1:0, ((num / 10) % 10) % 5,
(num / 1) % 10 - 5 > 0? 1:0, ((num / 1) % 10) % 5};
string[] roman = new [] {
"M", "D", "C", "L", "X", "V", "I"};
for (int i = 0; i < tmp.Length; i++) {
if (tmp[i] > 3) {
romanNumber += roman[i] + roman[i - 1];
} else {
for (int j = 0; j < tmp[i]; j++) {
romanNumber += roman[i];
}
}
//Добавление пробела между рзрядами
romanNumber += i % 2 == 0 ?" ":"";
}
return romanNumber;
}

Снимается не работает на цифрах 9

На Паскале
{I=1 V=5 X=10 L=50 C=100 D=500 M=1000}
const razr: array[0..6] of char = (&#39;I&#39;,&#39;V&#39;,&#39;X&#39;,&#39;L&#39;,&#39;C&#39;,&#39;D&#39;,&#39;M&#39;);

var s: string;
c,d,i,j: integer;
numeric: array[0..3] of byte;

begin
writeln(&#39;Введите число, меньшее 4000&#39;);
readln(c); //число
d:=c; //вспомогательная переменная
s:=&#39;&#39;; //результирующая строка
for i:=0 to 3 do begin //записываем цифры числа в массив numeric
numeric[i]:=d mod 10;
d:=d div 10;
end;
//просматриваем массив цифр и формируем строку согласно правилам перевода
for i:=3 downto 0 do
If (numeric[i]<>0) then
If (numeric[i]<4) then
for j:=1 to numeric[i] do s:=s+razr[i*2]
Else If (numeric[i]=4) then
begin
For j:=1 to abs(numeric[i]-5) do s:=s+razr[i*2];
s:=s+razr[i*2+1];
end
Else If (numeric[i]<9) then
begin
s:=s+razr[i*2+1];
For j:=1 to (numeric[i]-5) do s:=s+razr[i*2];
end
Else If (numeric[i]=9) then
begin
For j:=1 to abs(numeric[i]-10) do s:=s+razr[i*2];
s:=s+razr[i*2+2];
end;
writeln(s);
end.

MICCCXXXVIII=?

ответ напишите пожалуйста
MICCCXXXVIIIx

1337 году построили здания обсерваторию КГУ ???

Спасибо!!!!!

MICCCXXXVIII - в этом числе ошибка. I не может стоять перед C. По крайней мере, это не по принятым правилам написания римских чисел.
Если I перед C написано ошибочно (опечатка UFHSLDG), то ответ редакции неверен - правильное число 1338.