Ребят помогите очень срочно !!!! Мне завтра её сдавать ,а у меня не получается. Я люблю...

Question

Ребят помогите очень срочно !!!! Мне завтра её сдавать ,а у меня не получается.
Я люблю информатику и обычно сам всё решаю ,но тут встал в тупик,помогите!!!
ДАЮ 54 БАЛЛА!!!
(ЯЗЫК Pascal ABC)

Дано число X. Требуется перевести это число в римскую систему счисления.

Входные данные
Дано число X в десятичной системе счисления (1 ≤ X ≤ 100).

Выходные данные
Выведите X в римской системе счисления.

Примеры
входные данные
4
выходные данные
IV
входные данные
19
выходные данные
XIX
входные данные
46
выходные данные
XLVI

Answer 1

a,b:integer; 
d:string[45]; 
begin 
SetConsoleOutputCP(1251); 
writeln('Введите число в диапазоне от 1 дo 100'); 
write('a='); 
readln(a); 
b:=a mod 10; 
a:=a div 10; 
case b of 
0: d:=''; 
1: d:='I'; 
2: d:='II'; 
3: d:='III'; 
4: d:='IV'; 
5: d:='V'; 
6: d:='VI'; 
7: d:='VII'; 
8: d:='VIII'; 
9: d:='IX'; 
end; 
b:=a mod 10; 
a:=a div 10; 
case b of 
0: d:=''+d; 
1: d:='X'+d; 
2: d:='XX'+d; 
3: d:='XXX'+d; 
4: d:='XL'+d; 
5: d:='L'+d; 
6: d:='LX'+d; 
7: d:='LXX'+d; 
8: d:='LXXX'+d; 
9: d:='XC'+d; 
end; 
b:=a mod 10; 
a:= a div 10; 
case b of 
0: d:=''+d; 
1: d:='C'+d; 
end; 
writeln('B Римской системе счисления ' ,d); 
readln; 
end. 

Comments

Бл* не то чувак ща сек

---

ок жду