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

1

Ответы и объяснения

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