👤
UNGUREANUALINA900ZE
a fost răspuns

Vă rooooogggg! Urgeeeent!​

Vă Rooooogggg Urgeeeent class=

Răspuns :

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.

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite!


Ze Learnings: Alte intrebari