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
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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!
