• Lenguaje

    Pascal

  • Descripción

    Una tienda ofrece un descuento del 30% sobre el total de la compra, a los clientes que cumplan la condición de tener más de 70 años, el cliente desea saber cuánto deberá pagar finalmente por su compra, mostrar también el descuento y el nombre del cliente.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program DescuentoAMayoresDe70Anos;
uses crt;

var descuento, edad, pago_final, total_de_la_compra : real;
var nombre_del_cliente : string;
begin
    write ('Ingresa el nombre del cliente: ');
    readln (nombre_del_cliente);
    write ('Ingresa el valor de edad: ');
    readln (edad);
    write ('Ingresa el valor de total de la compra: ');
    readln (total_de_la_compra);
    descuento := 0;
    if edad>70 then
        begin
            descuento := total_de_la_compra*0.3;
        end;
    pago_final := total_de_la_compra-descuento;
    writeln ('Nombre del cliente: ', nombre_del_cliente);
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de pago final: ', pago_final:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.