Question

Vă rooooogggg! Urgeeeent!​

Answer 1

Răspuns:

Program P18;

var x:integer , c:char ;

begin

writeln('Introdu x')

read(x)

case x of

1:writeln('I');

5:writeln('V');

10:writeln('X');

50:writeln('L');

100:writeln('C');

500:writeln('D');

1000:writeln('M');

end;

readln;

end.