Question

Помогите пож!!! Используя оператор case, напишите пож. программу, которая переводит десятичные числа 1, 5, 10, 50, 100, 500, 1000, считываемые с клавиатуры, в римские.

Answer 1

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.

 

римские соответствия не все помню