-
Lenguaje
Pascal
-
Descripción
Determinar cuanto dinero ahorra una persona en un año si cada mes ahorra el 10% de su sueldo, el cual debe leer (considere que no cambia el sueldo).
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 AhorroEnUnAno;
uses crt;
var ahorro, sueldo : real;
begin
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
ahorro := sueldo*0.1*12;
writeln ('Valor de ahorro: ', ahorro:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var ahorro, sueldo : real;
begin
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
ahorro := sueldo*0.1*12;
writeln ('Valor de ahorro: ', ahorro:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.