Torete

Tarea “A”

Solucion:
Venta de artículos deportivosIngrese el nombre del artículo: |
Ingrese precio de venta: |
Ingrese cantidad a vender:|
Importe: **** |
Ingrese la cantidad que paga **** |
el cliente:vuelto del cliente: ***** |
|

SeanNomarticulo: Nombre del articulo
Prv: Precio de venta
Cant: Cantidad a vender
Impo: Importe
Cpaga: Cantidad que paga el cliente
Vuelto: Vuelto del cliente
Algoritmo
Leer-NomarticuloVuelto= impo-Cpaga
Leer-Prov Imprimir-vuelto
Leer-Cant Fin
Importe= prv*cant
Leer-cpagaCodificacion

Dim Nomarticulo As String
Dim Prv, Cant, Impo, Cpaga, Vuelto As Single
Console.writeline (“Vent de articulo Deport”)
Console.writeline ()
Console.write (“Ingresenombre del artículo: ”)
Nomarticulo= Console.readline
Console.write (“Ingrese precio de venta: ”)
Prv= Console.readline
Console.write (“Ingrese cantidad a vender:”)
Cant= Console.readline
Impo=Prv* Cant
Console.write (“Importe= {0 }”, impo)
Console.write (“Ingrese la cantidad que paga el cliente:”)
Cpaga= Console.readline
Vuelto=impo-Cpaga
Console.write (“Vuelto del cliente= {0}”,impo-Cpaga)
Console.readline ()



Tarea “B”
Solución:
Descomponer un numeroIngrese un numero de 8 dígitos: |
Unidad: * |
Decena:* |
Centena: * |
Unidad de Millar: * |
Decena de Millar: * |
Centena de Millar: * |
Unidad de Millón: * |
Decena de Millón: * |
|Sean
12345678 10000000 345678 100000 5678 1000
1000000 1 300000 3 1000 5
2345678 45678...