miércoles, 22 de julio de 2015

Pascal 010 ► Convertir kilómetros a millas

Ejercicio 010: Convertir kilómetros a millas.

Program Pascal_010;
uses crt;
var
    km, millas, milla : real;
Begin
    milla := 0.6214;
    WriteLn('Ingresa kilómetros');
    ReadLn(km);
    millas := km * milla;
    WriteLn('Equivalen a: ',millas:0:2);
    ReadKey;
End. 

No hay comentarios:

Publicar un comentario