-
Lenguaje
Pascal
-
Descripción
En el cine por cada entrada cobran $15.000 por cada persona y $10.000 a partir de la segunda persona. Determine cuánto debe pagar un cliente por el ingreso al cine, conociendo la cantidad de personas que entrarían a la función.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program CobroPorFuncionDeCine;
uses crt;
var cantidad_de_personas, pago : real;
begin
write ('Ingresa el valor de cantidad de personas: ');
readln (cantidad_de_personas);
pago := cantidad_de_personas*10000;
if cantidad_de_personas=1 then
begin
pago := pago+5000;
end;
writeln ('Valor de pago: ', pago:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_de_personas, pago : real;
begin
write ('Ingresa el valor de cantidad de personas: ');
readln (cantidad_de_personas);
pago := cantidad_de_personas*10000;
if cantidad_de_personas=1 then
begin
pago := pago+5000;
end;
writeln ('Valor de pago: ', pago:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.