-
Lenguaje
Pascal
-
Descripción
Si un dólar equivale a 3.45 soles. Hacer un algoritmo que imprima en dólares una cantidad X de soles.
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 SolesADolares;
uses crt;
var cantidad_de_dolares, cantidad_de_soles : real;
begin
write ('Ingresa el valor de cantidad de soles: ');
readln (cantidad_de_soles);
cantidad_de_dolares := cantidad_de_soles/3.45;
writeln ('Valor de cantidad de dolares: ', cantidad_de_dolares:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_de_dolares, cantidad_de_soles : real;
begin
write ('Ingresa el valor de cantidad de soles: ');
readln (cantidad_de_soles);
cantidad_de_dolares := cantidad_de_soles/3.45;
writeln ('Valor de cantidad de dolares: ', cantidad_de_dolares:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.