-
Lenguaje
Pascal
-
Descripción
Lee el valor correspondiente a una distancia en millas marinas y las escribe expresadas en metros. Sabiendo que 1 milla marina equivale a 1852 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 MillasMarinasAMetros;
uses crt;
var metros, millas_marinas : real;
begin
write ('Ingresa el valor de millas marinas: ');
readln (millas_marinas);
metros := millas_marinas*1852;
writeln ('Valor de metros: ', metros:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var metros, millas_marinas : real;
begin
write ('Ingresa el valor de millas marinas: ');
readln (millas_marinas);
metros := millas_marinas*1852;
writeln ('Valor de metros: ', metros:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.