Помоги,пожалуйстааа))Разработать, ввести в ЭВМ и отладить программу для расчёта действительного расстояния между городами, если известно расстояние между ними на карте и масштаб карты
Помоги,пожалуйстааа))
Разработать, ввести в ЭВМ и отладить программу для
расчёта действительного расстояния между городами, если известно расстояние
между ними на карте и масштаб карты
Гость
Ответ(ы) на вопрос:
Гостьvar a: real;
b: longint;
begin
write('Введите расстояние (в см): ');
readln(a);
write('Масштаб 1:');
readln(b);
writeln(a * b, ' см = ', a * b / 100, ' м = ', a * b / 100000, ' км');
end.
Не нашли ответ?
Похожие вопросы