1 верста =500 саженей,1 сажень=3 аршина, 1 аршин=6 вершков ,1вершок =44,45мм.Длинна некоторого отрезка составляет p метров.Перевести её в русскую неметрическую систему. Помогите плз!

Тоесть пользователь должен выбрать в каких единицах измерения хочет получить ответ, ввести число, и получить результат? Или сразу ввести число, и получить результат в каждой из перечисленых мер?
Проблема в алгоритме, или в програмной реализации?
Если с програмой, то можешь заранее подсчитать сколько вёрст, сажаней, аршинов, вершков в 1 метре, и запиши их в програму как константы, а дальше просто умножай нужную константу на Р - самый простой способ

В програмной реализации!

с помощью div,mod
вот смотри это вся программа:

var p: integer;
begin
writeln('vvedi v metrah');
readln(p);
writeln(p,' metrov= ', p div 44.45*6*3*500 ,' verst ', (p mod 500) div 44.45*6*3,' sazhenei ', 
  (p mod 500*3) div 44.45*6,' arshin ', (p mod 500*3*6) div 44.45,' vershkov');
readln;
end.

sheka, ты уверен, что это
хотя бы откомпилируется? Кто тебе разрешит применять целочисленный оператор к вещественным значениям?

Да, чуть протупил... тогда надо использовать trunc итд.

!

Тема закрыта. Правила раздела, п.1, и Правила Форума, п.4