Umístnení souboru www.TrSek.com/zadania/arabzrimcisel.pas{ ARABZRIMCISEL.PAS Copyright (c) Pheo }
{ Prevod rímskych èísel na arabské. }
{ }
{ Datum:12.06.1996 http://www.trsek.com }
program arabzrimcisel;
var r:array[1..20] of char;
rc:string;
ac,k,p:integer;
begin
Ac:=0;
write('Zadaj rimske cislo:');
read(rc);
p:=length(rc);
for k:=1 to p do
begin
if rc[k]='M' then ac:= ac+1000;
if rc[k]='D' then ac:= ac+500;
if rc[k]='C' then ac:= ac+100;
if rc[k]='L' then ac:= ac+50;
if rc[k]='X' then ac:= ac+10;
if rc[k]='V' then ac:= ac+5;
if rc[k]='I' then ac:= ac+1;
end;
writeln('Zodpovedajuce arabske cislo:',ac);
readln;
end.