12 - comerciante

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

compra:-
	write('digite o valor da compra'),nl,
	read(C),
	imprime(C).
imprime(C):-
	C < 20,
	A is C*0.45,
	V is C+A,
	write('valor de venda = ':V),!.
imprime(C):-
	C >= 20,
	A is C*0.30,
	V is C+A,
	write('valor de venda = ':V).