Question

Написать программу для пересчета из миль в километры (1 миля=1.609344 км). Расстояние в километрах K вводится из программы.

Answer 1

Var
  k: integer;
  m: real;

begin
  writeln('Введите расстояние в километрах');
  read(k);
  m := k * 0.62;
  writeln(k, ' км = ', m:0:2, ' миль');
  readln;
end.