-
Lenguaje
Pascal
-
Descripción
Programa que tras introducir una medida expresada en centímetros la convierta en pulgadas (1 pulgada = 2,54 centímetros).
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 CentimetrosAPulgadas;
uses crt;
var centimetros, pulgadas : real;
begin
write ('Ingresa el valor de centimetros: ');
readln (centimetros);
pulgadas := centimetros/2.54;
writeln ('Valor de pulgadas: ', pulgadas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var centimetros, pulgadas : real;
begin
write ('Ingresa el valor de centimetros: ');
readln (centimetros);
pulgadas := centimetros/2.54;
writeln ('Valor de pulgadas: ', pulgadas:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.