Question

Cyferki Rzymskie Język programowania: Pascal
Wczytaj cyfrę rzymską i wypisz jej wartość liczbową w cyfrach arabskich.

Cyfry rzymskie
Liczby arabskie
I
1
V
5
X
10
L
50
C
100
D
500
M
1000


Wejście
W pierwszym wierszu standardowego wejścia zapisano cyfrę rzymską.
Wyjście
W pierwszym wierszu standardowego wyjścia zapisz liczbę arabską .

Przykład
Dla danych
X
poprawny wynik
10

Answer 1

Uses crt;
var
arabska:string;
nasza:string;
wybor:integer;
begin
repeat
writeln('Jesli chcesz wyjsc wcisnij 3');
readln(wybor);
clrscr;

readln(arabska);
if arabska = 'I' then nasza:='1';
if arabska ='II' then nasza:='2';
if arabska = 'III' then nasza:='3';
if arabska = 'IV' then nasza:='4';
if arabska ='V' then nasza:='5';
if arabska='VI' then nasza:='6';
if arabska='VII' then nasza:='7';
if arabska='VIII' then nasza:='8';
if arabska='IX' then nasza:='9';
if arabska='X' then nasza:='10';
if arabska='L' then nasza:='50';
if arabska='C' then nasza:='100';
if arabska='D' then nasza:='500';
if arabska='M' then nasza:='1000';
writeln(nasza);
until wybor = 3;
end.