Question

Чтобы ИИ пришельцев развивался ещё быстрее, для него пишут небольшие программы — «навыки». Для ускорения самообучения ИИ напиши программу, которая переводит однозначное число из римской системы счисления. Ввод Вывод X 10

Answer 1

program P;

var a: string;

begin

read(a);

if a='X' then a:='10';

if a='IX' then a:='9';

if a='VIII' then a:='8';

if a='VII' then a:='7';

if a='VI' then a:='6';

if a='V' then a:='5';

if a='IV' then a:='4';

if a='III' then a:='3';

if a='II' then a:='2';

if a='I' then a:='1';

writeln(a);

end.

2 вариант


program P;

var a: string;

begin

read(a);

if a='X' then a:='10';

if a='V' then a:='5';

if a='I' then a:='1';

if a='L' then a:='50';

if a='C' then a:='100';

if a='M' then a:='1000';

if a='D' then a:='500';

writeln(a);

end.