Question

Написать программу вычисления расстояния между населенными пунктами, изображенными на карте. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). Вычисление расстояния между населенными пунктами. Введите исходные данные:Масштаб карты (количество километров в одном сантиметре) ---> 120Расстояние между двумя точками, изображающими населенные пункты (см) ---> 3.5Расстояние между населенными пунктами 420 км.

Answer 1

var m,r:real;

Begin

Writeln('Вычисление расстояния между населенными пунктами.') ;
writeln('ведите исходные данные:');
writeln('Масштаб карты (количество километров в одном сантиметре) ---> ');

read(m);
writeln('Расстояние между двумя точками, изображающими населенные пункты (см) ---> ');

read(r);
writeln('Расстояние между населенными пунктами ', m*r,' км.');

 

End.