-
Lenguaje
Pascal
-
Descripción
¿Cuántos meses debe ahorrar para comprar un celular de precio S/. 500 si recibe mensualmente p soles?
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 MesesParaComprarUnCelular;
uses crt, math;
var meses, p_soles : real;
begin
write ('Ingresa el valor de p soles: ');
readln (p_soles);
meses := 500.0/p_soles;
if meses<>floor(meses) then
begin
meses := floor(meses+1);
end;
writeln ('Valor de meses: ', meses:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var meses, p_soles : real;
begin
write ('Ingresa el valor de p soles: ');
readln (p_soles);
meses := 500.0/p_soles;
if meses<>floor(meses) then
begin
meses := floor(meses+1);
end;
writeln ('Valor de meses: ', meses:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.