Предмет: Информатика, автор: Ann199606

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

Ответы

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


Похожие вопросы