-
Lenguaje
Pascal
-
Descripción
El Diario "El Hocicón" cobra por un aviso clasificado un monto que depende del número de palabras, tamaño en centímetros y número de colores. Cada palabra tiene un costo de 5 soles, cada centímetro tiene un costo de 10 soles. Y cada color tiene un costo de 15 soles. Determine el monto a pagar por un aviso clasificado.
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 DiarioElHocicon;
uses crt;
var monto_a_pagar, numero_de_centimetros, numero_de_colores, numero_de_palabras : integer;
begin
write ('Ingresa el valor de numero de centimetros: ');
readln (numero_de_centimetros);
write ('Ingresa el valor de numero de colores: ');
readln (numero_de_colores);
write ('Ingresa el valor de numero de palabras: ');
readln (numero_de_palabras);
monto_a_pagar := numero_de_palabras*5+numero_de_centimetros*10+numero_de_colores*15;
writeln ('Valor de monto a pagar: ', monto_a_pagar);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var monto_a_pagar, numero_de_centimetros, numero_de_colores, numero_de_palabras : integer;
begin
write ('Ingresa el valor de numero de centimetros: ');
readln (numero_de_centimetros);
write ('Ingresa el valor de numero de colores: ');
readln (numero_de_colores);
write ('Ingresa el valor de numero de palabras: ');
readln (numero_de_palabras);
monto_a_pagar := numero_de_palabras*5+numero_de_centimetros*10+numero_de_colores*15;
writeln ('Valor de monto a pagar: ', monto_a_pagar);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.