Question

Помоги,пожалуйстааа))Разработать, ввести в ЭВМ и отладить программу для расчёта действительного расстояния между городами, если известно расстояние между ними на карте и масштаб карты

Answer 1

Var a: real;
    b: longint;
begin
     write('Введите расстояние (в см): ');
     readln(a);
     write('Масштаб 1:');
     readln(b);
     writeln(a * b, ' см = ', a * b / 100, ' м = ', a * b / 100000, ' км');
end.