Informatică, întrebare adresată de SimpluOm, 8 ani în urmă

Faceti va rog poza la exercitiu in caiet daca veti rezolva. Va multumesc.
Sarcina: Monedele uzuale ale Republicii Moldova 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. De exemplu, daca utilizatorul tasteaza "25", pe ecran se va afisa "doua zeci si cinci de bani". Daca utilizatorul tasteaza un numar ce difera de 1,5,10,25 sau 50, pe ecran se va afisa mesajul "valoarea inadmesibila".


o1l1d1v1: Program P12;
var q, a, b, c, d, e: integer;
begin
writeln ('dati nr. monedei');
Readln (q);

a:=1;
b:=5;
c:=10;
d:=25;
e:=50;
if q=a then q:=1;
if q<>a then writeln('Moneda data nu este de 1');
if q=b then q:=5;
if q<>b then writeln('Moneda data nu este de 5');
if q=c then q:=10;
if q<>c then writeln('Moneda data nu este de 10');
if q=d then q:=25;
if q<>d then writeln('Moneda data nu este de 25 ');
if q=e then q:=50;
if q<>e then writeln('Moneda data nu este de 50');
end.

Răspunsuri la întrebare

Răspuns de o1l1d1v1
0

Răspuns:

OK,o sa ma starui sa fac rapid!

Explicație:


o1l1d1v1: (nu e cam gata pana ce dar minimal macar)
Alte întrebări interesante