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ă