K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

uses crt;

var n,dv,tr,ch,ng:integer;

begin

clrscr;

readln(n);

if n mod 10=0 then  

 begin   

  dv:=n mod 10; 

ch:=n div 10;

ch:=ch mod 10; 

tr:=n div 100;

tr:=tr mod 10; 

ng:=n div 1000;

ng:=ng mod 10; 

if ng=1 then write('M'); 

case tr of  

  1: write('C');   

2: write('CC'); 

  3: write('CCC'); 

  4: write('CD');   

5: write('D');   

6: write('DC'); 

  7: write('DCC'); 

  8: write('DCCC');

    9: write('CM'); 

end; 

case ch of 

  1: write('X'); 

  2: write('XX'); 

  3: write('XXX');   

4: write('XL');   

5: write('L');   

6: write('LX'); 

  7: write('LXX');

    8: write('LXXX'); 

  9: write('XC'); 

end;   

end; 

readln;

 end.