de la tastatura se citeste una din urmatoarele cifre romane: I, V, X, L, C, D sau M. Sa se scrie un program care afiseaza numarul zecimal corespunzator cifrei citite

in pascal va rog


Răspuns :

Răspuns:

Program P1;

var cifra:char;

begin

 writeln('Introduceti o cifra romana: ');read(cifra);

 case cifra of

   'I':writeln('1');

   'V':writeln('5');

   'X':writeln('10');

   'L':writeln('50');

   'C':writeln('100');

   'D':writeln('500');

   'M':writeln('1000')

   else

     writeln('Eroare');

 end;

end.

Explicație:

Introducem anul de la tastatura. Veficam folosind instructiunea case of daca anul corespunde unui caz impus. Dacă da, atunci vom afișa anul respectiv sub formă de cifră