Вопрос от посетителя
Помогите пож!!! Используя оператор case, напишите пож. программу, которая переводит десятичные числа 1, 5, 10, 50, 100, 500, 1000, считываемые с клавиатуры, в римские.
Отвечает Илюха:
var a:integer;
s:string;
Begin
read(a);
case a of
1: s:=”I”;
5: s:=”V”;
10: s:=”X”;
50: s:=”C”;
100: s:=”C”;
500: s:=”I”;
1000: s:=”M;
end;
writeln(s);
End.
римские соответствия не все помню