Utlizind instructiunea case, scrieti un program care transforma numerele zecimale 1,5,10,50,100,500,1000, citite de la tastatura,in cifre romane
Răspunsuri la întrebare
Răspuns de
111
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.
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.
Alte întrebări interesante