Utilizind instructiunea CASE, scrieti in program care transforma numerele zecimale 1,5,10,50,100,500,1000, citite de la tastatura, in cifre romane.
Rezolvarea in Turbo Pascal
Răspunsuri la întrebare
Răspuns de
13
Program p1;
Var n:integer;
Begin
Readln(n);
Case n of
1:Writeln('I');
5:Writeln('V');
10:writeln('X');
50:writeln('L');
100:writeln('C');
500:writeln('D');
1000:writeln('M');
Readln;
End.
yehoslavrudenco:
Dupa 1000:writeln('M') adauga end;
Alte întrebări interesante
Engleza,
8 ani în urmă
Limba română,
8 ani în urmă
Biologie,
9 ani în urmă
Limba română,
9 ani în urmă