-
Lenguaje
Pascal
-
Descripción
Pinturas "La brocha gorda" requiere determinar cuánto cobrar por trabajos de pintura. Considere que se cobra por m2 y cada m2 tiene un valor de 12399 pesos.
1
2
3
4
5
6
7
8
9
10
11
12
13
2
3
4
5
6
7
8
9
10
11
12
13
program PinturasLaBrochaGorda2;
uses crt;
var cobro, metros_cuadrados : integer;
begin
write ('Ingresa el valor de metros cuadrados: ');
readln (metros_cuadrados);
cobro := metros_cuadrados*12399;
writeln ('Valor de cobro: ', cobro);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cobro, metros_cuadrados : integer;
begin
write ('Ingresa el valor de metros cuadrados: ');
readln (metros_cuadrados);
cobro := metros_cuadrados*12399;
writeln ('Valor de cobro: ', cobro);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.