Question

Monedele uzuale ale Moldovei au valoarea de 1, 5, 10, 25 sau 50 de bani. Elaborati un program Pascal care citeste de la tastatura valoarea numerica a monedei si afiseaza pe ecran valoarea respectiva exprimata prin cuvinte.
Please

Answer 1

program Hello;

var valoare:integer;

begin

 writeln ('Dati valoarea:');

 readln(valoare);

 case valoare of

1: writeln('un ban');

5: writeln('cinci bani');

10: writeln('zece bani');

25: writeln('douazeci si cinci de bani');

50: writeln('cincizeci de bani!');

else writeln('valoare inadmisibila');

end

end.