-
Lenguaje
Pascal
-
Descripción
Convierta euros a pesos. 1 Euro equivale a 3100 pesos colombianos.
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 EurosAPesosColombianos;
uses crt;
var euros, pesos_colombianos : integer;
begin
write ('Ingresa el valor de euros: ');
readln (euros);
pesos_colombianos := euros*3100;
writeln ('Valor de pesos colombianos: ', pesos_colombianos);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var euros, pesos_colombianos : integer;
begin
write ('Ingresa el valor de euros: ');
readln (euros);
pesos_colombianos := euros*3100;
writeln ('Valor de pesos colombianos: ', pesos_colombianos);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.