Question

Составьте программу для преобразования расстояния X в милях в расстояние K в километрах,приняв,что 5 миль равны 8 км. Исходное расстояние в милях задается с клавиатуры.

Answer 1

program mtokm;
begin
var a:double;
writeln("Введите расстояние в милях: ");
readln(a);
writeln("Расстояние в милях: ", a);
a := a / 5 * 8;
write("Расстояние в км: ", a);
end.